ClientSocket, ServerSocket Erreur dans mon code

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 !!:D Mais maintenant ne marche pas ??:cry:
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 .

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

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 ^

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

Merci.

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

Code:

---

1 2 3 4

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

---