Изображение

[Terran]

Всем привет!
Подскажите, как мне разобраться с проблемой.
Вот приведён код который принимает данные и записывает их в файл на винчестер. В моём случае будет приходить картинка. Как мне эту картинку которая будет приходить сразу вывести в Image, а не записывать в файл?
Есле можно приведите код.


Procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
Var
S, Sl: String;
P: TJPEGImage;
Begin
S:=Socket.ReceiveText;
If Reciving Then
Begin
Fs.Write(S[1], Length(S));
If Fs.Size=DataSize Then
Begin
Reciving:=False;
ClientSocket1.Active:=False;
Fs.Free;
End;
Exit;
End;
If Copy(S, 1, 5)='Size:' Then
Begin
Sl:=Copy(S, 6, Pos(#0, S)-6);
DataSize:=StrToInt(Sl);
Delete(S, 1, Pos(#0, S));
Reciving:=True;
Fs := TfileStream.Create('Picture.jpg', FmCreate) ;
Fs.Write(S[1], Length(S));
End;
End;

Заранее благодарен!

[Snoopy]

Отправляйте изображение с помощью потока TMemoryStream и закружайте её из потока на клиенте Image.Picture.LoadFromStream()

[BOBAH13]

Помойму уже разгребали тему подобную! Или даже такую же, точно помню еще отвечал, пользуйтесь поиском было уже не однократно