tchakadim
Messages postés3Date d'inscriptionjeudi 15 février 2007StatutMembreDernière intervention 5 avril 2007
-
6 mars 2007 à 17:56
tchakadim
Messages postés3Date d'inscriptionjeudi 15 février 2007StatutMembreDernière intervention 5 avril 2007
-
5 avril 2007 à 14:30
salut,
jé fait un prog simple d'envoie et de reception des caractères mai jé un pb c'est que l'envoi du serveur au client ne s'effectue pas alors que du client au serveur s'effectue normalement.
**********************code client ----------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
clientSocket1.Close;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Lecture des informations effecuées');
Edit4.Text:=Socket.ReceiveText;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Edit3.Text);
Memo1.Lines.Add('Informations envoyées au serveur');
end;
********************code serveur **************************************
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port:=StrtoInt(Edit1.Text);
ServerSocket1.Open;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Lecture des informations effecuées');
Edit2.Text:=Socket.ReceiveText;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ServerSocket1.Socket.Connections[0].SendText('salut') ;
end;
tchakadim
Messages postés3Date d'inscriptionjeudi 15 février 2007StatutMembreDernière intervention 5 avril 2007 5 avril 2007 à 14:30
bonjour,
jé fait un program sous delphi de traitement de données et d'envoi de données sous forme de "string" entre un client et un serveur et maintenant jé trouver du difficulté à faire envoyer une image"bitmap" sous forme de stream entre le client et le serveur.
j'ai besoin d'aide.
je vous remercie d'avance!!!