SERVER TCP/IP EN UTILISANT LES COMPOSANTS ICS
cs_cantador
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
-
22 mars 2006 à 14:07
cs_potiok Messages postés 2 Date d'inscription mercredi 23 juillet 2003 Statut Membre Dernière intervention 2 janvier 2007 - 2 janv. 2007 à 12:55
cs_potiok Messages postés 2 Date d'inscription mercredi 23 juillet 2003 Statut Membre Dernière intervention 2 janvier 2007 - 2 janv. 2007 à 12:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/36655-server-tcp-ip-en-utilisant-les-composants-ics
https://codes-sources.commentcamarche.net/source/36655-server-tcp-ip-en-utilisant-les-composants-ics
2 janv. 2007 à 12:55
1) enlever la référence à UTFile
2) voici le code de UTGetpid
unit UTGetpid;
interface
uses windows, SysUtils;
function FindProcessByModuleNameNT(Name: string): THandle;
implementation
uses
psapi, tlhelp32;
// returns process ID
function FindProcessByModuleNameNT(Name: string): THandle;
var
PIDList: array[0..1023] of THandle;
i: integer;
ListCount, size: cardinal;
hProcess, hModule: THandle;
ModuleName: array[0..MAX_PATH] of char;
begin
result:= 0;
EnumProcesses(@PIDList, sizeof(PIDList), ListCount);
ListCount:= ListCount div sizeof(THandle);
for i:= 0 to ListCount-1 do
begin
// get process handle for each process id we got
hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION +
PROCESS_VM_READ, false, PIDList[i]);
try
if hProcess <> 0 then
begin
// get handle to first module, which is the exe
if EnumProcessModules(hProcess, @hModule,
sizeof(hModule), size) then
begin
// extract the filename
GetModuleFileNameEx(hProcess, hModule,
ModuleName, sizeof(ModuleName));
if AnsiCompareText(ExtractFileName(StrPas(@ModuleName)), Name) = 0 then
begin
result:= PIDList[i];
exit;
end;
end;
end;
finally
CloseHandle(hProcess);
end;
end;
end;
function FindProcessByModuleName9x(Name: string): THandle;
var
hSnapshot: THandle;
next: boolean;
pe: TProcessEntry32;
begin
result:= 0;
hSnapshot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if hSnapshot = THandle(-1) then
exit;
FillChar(pe, sizeof(pe), 0);
pe.dwSize:= sizeof(pe);
next:= Process32First(hSnapshot, pe);
while next do
begin
if AnsiCompareText(StrPas(@pe.szExeFile), Name) = 0 then
begin
result:= pe.th32ProcessID;
next:= false;
end
else
next:= Process32Next(hSnapshot, pe);
end;
CloseHandle(hSnapshot);
end;
end.
13 avril 2006 à 19:47
13 avril 2006 à 18:36
Build
[Warning] UTSystem.pas(86): Method 'Create' hides virtual method of base type 'TProcess'
[Fatal Error] UTSystem.pas(141): File not found: 'UTFile.dcu'
13 avril 2006 à 17:01
13 avril 2006 à 16:52
13 avril 2006 à 15:29
13 avril 2006 à 14:05
[Fatal Error] USvrCmd.pas(71): File not found: 'UTEnvironment.dcu'
12 avril 2006 à 08:30
David
12 avril 2006 à 00:43
24 mars 2006 à 17:47
Non du projet : SrvCmd.dpr
@+
23 mars 2006 à 15:16
23 mars 2006 à 14:52
Peux-tu faire un construire "clientReseau" dans le menu Projet de delphi
23 mars 2006 à 14:48
TEnvironment.dcu..
23 mars 2006 à 14:19
Tu as bien dans "Chemin des bibliothèque" ton environnement qui point sur ICS ?
Le composant WsktsrvrCmd viens de ICS
23 mars 2006 à 13:56
"WsktsrvrCmd.LastError: Propriété en lecture seule"
etc. etc.
Sous Delphi 7 windows XP sp2
23 mars 2006 à 13:46
Ton serveur se trouve normalement dans le systray. Click droit et faire open afin de voir si il est en attente client.
23 mars 2006 à 13:37
Donc installation nickel.
Mais l'appli ne fonctionne pas...
????
23 mars 2006 à 11:52
j'ai tout réinstallé, mais rien à faire..
je bosse sous D7 XP sp2.
??
22 mars 2006 à 14:57
il en faut..car j'ai supprimé les intrus et ça compile certes mais le prog plante encore..
bref, j'ai tjrs un os avec WSocketServer.dcu qui n'existe pas sur mon disque..
il ne risque pas de le trouver.
Moi, qd je publie qlqchose ça marche na !
22 mars 2006 à 14:32
Courage
22 mars 2006 à 14:27
FtpSrv.dcr
??
22 mars 2006 à 14:18
N'oublie surtout pas de compiler le package ICS car ton soucis vient qu'il te manque le fichier .dcu résultant de la compilation du package.
22 mars 2006 à 14:16
http://www.overbyte.be/frame_index.html
Moi j'ai la version V5 mais la V6 doit prendre en charge Delphi 2006 en plus.
22 mars 2006 à 14:07
WSocketServer.dcu..
c'est peut-être beaucoup demandé mais pourrais-tu fournir le zip des composants ICS car il m'en manque pas mal..
merci par avance
et vive delphi !