[Delphi] gniazdka przesyłanie bitmapy

[Max1414]

Nie bardzo wiem jak zrobić za pomocą gniazdek przesyłanie bitmapy. Zrobiłem coś takiego do wysyłania, ale nic nie dochodzi do servera i w dodatku runtime error wywala przy wyłączaniu programu. Dodam, że jeżeli wyśle coś za pomocą SendBuf to wtedy dochodzi do servera.

 

procedure TForm1.Button1Click(Sender: TObject);
var
 Stream: TMemoryStream;
begin
 Stream:= TMemoryStream.Create;
 try
   Image1.Picture.Bitmap.SaveToStream(Stream);
   ClientSocket1.Socket.SendStream(Stream);
 finally
   Stream.Free;
 end;
end;

[Toster]

no to w czym problem jak dochodzi ?

[Force]

Bo mówi, że przy użyciu SendBuf działa, a z SendStream nie

[Toster]

No bo aby przeslac streama trzeba stworzyc specjalne gdziazdko SockStream i to sie ciut inaczej obsluguje, co jest dokladnie opisane w Helpie do Delphi.

 

Jak zawsze czytanie ze zrozumieniem u mnie kuleje