Utiliser TClientSocket sans placer l'icone ClientSocket sur une Form

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Utiliser TClientSocket sans placer l'icone ClientSocket sur une Form

zitan

Voilà je voudrais pouvoir me servir de TClientSocket sans placer l'icone ClientSocket(ScktComp) sur une form. En gros je veux que ça marche en appli console J'espère que vous pourrez m'aidez !
Merci d'avance.

Publicité

antp

Super Administrateur
Champion des excuses bidons

Tout au début (démarrage du soft) tu le crées :

Socket := TClientSocket.Create(nil);

là t'emploies Socket comme tu veux

et tout à la fin quand t'en auras plus besoin (fermeture du soft) tu le vires :

FreeAndNil(Socket);

Entre les deux tu peux définir ses propriétés, et assigner des méthodes à ses événements.

Message édité par antp le 24-04-2005 à 23:42:46

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

zitan

Merci pour ton aide ! Ca marche , mais maintenant y a un autre problème, j'arrive à lancer une connection, mon serveur reconnait la connection, mais impossible d'envoyer un buffer ! Pourtant ça marche avec mon application quand elle possède une Form, et la ça marche pas quand je veux faire la meme chose mais en application console. Est ce que par harsard y a pas d'autre champ de Tclientsocket à initialiser.

antp

Super Administrateur
Champion des excuses bidons

Ça dépend, regarde quelles propriétés ou événements tu avais modifiés quand il était sur la Form.
Quand tu dis "ça marche pas", ça plante ou il ne se passe rien ?

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

zitan

Ben ça marche parce que le serveur, detecte la connexion , mais ensuite il reçoit pas la string que j'envois, alors que quand c une form si , c étrange ...
Je sais pas si tu va pouvoir m'aider je voudrais pouvoir transcrire cette fonction qui est sur un form , en une procedure pour une appli console , mais je vois pas tro comment ...
En gros faudré que je puisse écouter avec un serveur en mode console ...

Code :

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
i : integer;
taille : integer; // taille du buffer reçus
begin
Memo1.Lines.Add('Lecture des informations effectuées');
taille := Socket.ReceiveLength;
if taille <= taillebuffer then
begin
Socket.ReceiveBuf(Buffer,taille);
buffer.ip := socket.RemoteHost;
Memo1.Lines.Add('L adresse : ' + Buffer.ip + ' envoie posx : ' + Floattostr(Buffer.posx) + ' posy : ' + Floattostr(Buffer.posy ) );
For I:=0 To ServerSocket1.Socket.ActiveConnections -1 Do
ServerSocket1.Socket.Connections[I].SendBuf(Buffer,taille);
end;

J'espère que tu pourra me sauver !

Message édité par zitan le 25-04-2005 à 22:39:57

tilleuls

à)

---------------
Un tiens vaut mieux que deux tu l'auras...

antp

Super Administrateur
Champion des excuses bidons

Tu dois raccorder le OnClientRead du socket à une métode (procédure d'un objet).
Donc il faut voir si t'as déjà un objet quelque part dans ton programme actuel auquel tu pourrais rajouter une méthode ClientRead.
Sinon tu dois créer une classe que tu appelles par exemple TSocketManager et dont tu crées une instance (comme tu le fais pour le socket lui-même).
À cette classe tu ajoutes une méthode ClientRead qui reçoit les bons params, et tu la raccordes au OnClientRead du socket.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

zitan

merci beaucoup

FORUM HardWare.fr

Programmation

Delphi/Pascal

Utiliser TClientSocket sans placer l'icone ClientSocket sur une Form

Sujets relatifs
[C] impossible d'utiliser les thread sous linux problème de linker	[C#]Probleme de données entre Form
[SERVLET][EJB][Noob]Utiliser mon SERVLET avec mon EJB	comment utiliser les BBcodes
utiliser un INCLUDE avec des variables et un menu Flash ?	Moteur de recherche sans utiliser de base de données...
[c#] [form] listbox double click item	Petit icone dans les favoris (fichier .ICO)
Impossible d'utiliser include() dans un script de génération d'image.	Utiliser "Anatomic" a partir d'un VBS
Plus de sujets relatifs à : Utiliser TClientSocket sans placer l'icone ClientSocket sur une Form

Page générée en 0.051 secondes