Discussion :

[bahmani]

Salut
J'ai écrit ce programme afin de maîtriser l'envoi des fichier en utilisant des Socket, j'ai testé ce programme et s'a marché très bien !! Mais maintenant ne marche pas ??
Le CLIENT arrive à se connecter avec le SERVER , mail il n'arrive pas à envoyer des données??? (Sendbuf renvoi 0)

SVP Consultez mon code et donnez moi l'erreur

Merci d'avance .

[poly128]

Jvai peut etre paraitre stupide mais cest quoi un fichier .rar
Parceque moi je sais pas quoi en faire de ton fichier.

[hy00ga]

Un fichier archivé comme un zip mais fait par winrar Mais c'est vrai que la ou je bosse winrar est pas installé donc j peux meme po l'ouvrir ^

[bahmani]

Salut
A la demande, Ci-joint le fichier ZIP (Archive contient les programmes Client et server)

Merci.

[Eric Boisvert]

tu dois envoyer tes données seulement une fois connecté...
Déplace ton SendBuf dans l'événement OnConnect du client....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 Client.Socket.SendBuf(MyData, 5+ Length(MyData.AFileName));
end;