Переслать картинку по сети

← →
dim- (2002-11-25 09:36) [0]

как переслать картинку из TImage на одном ПК в другой.
Смысл задачи заставить сканер по сети сканировать

← →
Reindeer Moss Eater (2002-11-25 10:00) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1038201271&n=4

← →
dim- (2002-11-25 12:20) [2]

Люди, а что я сделал не так?
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var s:string;
srcfile:TMemoryStream;
begin
s:=Socket.ReceiveText;
if s="getimage" then begin
srcfile:=TMemoryStream.Create;
image1.Picture.Graphic.SaveToStream(srcfile);
ServerSocket1.Socket.Connections[0].SendStream(srcfile);
//srcfile.Free;
end;
клиент ни чего не получает, хотя если сделать:
ServerSocket1.Socket.Connections[0].SendText("srcfile");
клиент строку получает

← →
Reindeer Moss Eater (2002-11-25 12:50) [3]

Позиция в потоке-источнике перед его передачей должна быть равна 0

← →
dim- (2002-11-25 15:29) [4]

поставил в 0 - эфект тоже 0

Переслать картинку по сети Найти похожие ветки