| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Переслать картинку по сети [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]
dim- © (2002-11-25 09:36:00)как переслать картинку из TImage на одном ПК в другой.
Смысл задачи заставить сканер по сети сканировать
dim- (2002-11-25 15:29:00) [1]поставил в 0 - эфект тоже 0
Reindeer Moss Eater (2002-11-25 12:50:00) [2]Позиция в потоке-источнике перед его передачей должна быть равна 0
dim- (2002-11-25 12:20:00) [3]Люди, а что я сделал не так?
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 10:00:00) [4]http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1038201271&n=4
| |
