Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c