Как передать bitmap или jpeg по сети Опции

[LP_FUNKy]

??? Как передать картинку по сети ? Пробовал строкой отсылать несколько точек за раз , но это явно медленновато .

[Warlock]

Что понимается по пересылкой по сети? Какой компонент используется? Я так понимаю, что-то из FastNet?
Самый лучший способ передачи по TCP/IP есть передача потоков (Socket.SendStream). Если мне не изменяет склероз, то есть еще и SendFile  у того же Socket.
Это общие слова. Сконкретизируй задачу - возможно, ответ будет более подробный.

[LP_FUNKy]

  Задача -
 взять скриншот
 отобразить у себя в Image
 отослать на др. машину
 отобразить там

Компонент - любой но желательно конечно фаст-нетовский tcp/ip
А насчет Stream и File я пробовал но не получается (может есть пример из FAQ у кого ?) записать BMP в поток и прочиать его оттуда . А с файлами - глючит безбожно .

[mj]

У меня есть что те надо...

[LP_FUNKy]

У меня есть что те надо...

Не томи ! Ответь !

[mj]

примеры у меня дома... как на работу возьму винт, выложу здесь пример...
а каие картинки надо передавать?
можно например в файл сохранить, а потом файл передать... а вообще если надо без файлов, придётся немного подождать ответа...

[Warlock]

Все не так просто, но и не так сложно.
Приведу тебе реально рабочий код, доработаешь под свои нужды. Не получается потому, что фастнетовские компоненты довольно хитро передают данные, и не так просто их выцарапать из потока. В общем, смотри:

Передача

var 
 BitMapStream:TMemoryStream;

begin
BitMapStream          := TMemoryStream.Create;

 Что-то-там.Picture.Bitmap.SaveToStream(BitMapStream);
 try
   NMStrm.Host:=Edit_IPADDRESS.Text; // Компонент TNMStrm
   NMStrm.PostIt(BitMapStream);
 finally
  BitMapStream.Free;
  NMStrm.Disconnect;
 end;
end;

Прием:

// Обработчик события OnMSG для TNMStrmServ

procedure TForm1.NMStrmServMSG(Sender: TComponent;
  const sFrom: String; strm: TStream);
 var
Bitmap               : TBitmap;
BitMapStream    : TMemoryStream;
begin
   Bitmap:=TBitmap.Create;
   BitMapStream:= TMemoryStream.Create;
   BitMapStream.CopyFrom(strm,strm.Size);
   Bitmap.LoadFromStream(BitMapStream);
   Image_ScrollBox.Picture.Graphic:=Bitmap;
   BitMapStream.Free
end;

Вот и все. Все работает в реальном проекте.
Да, кстати TNMStrmServ.ReportLevel в обжект инспекторе поставь в 2.
Будут вопросы - пиши.

Сообщение отредактировано: volvo - 5.04.2010 17:08

[mj]

Этот пожалуй способ полегче моего будет...
Я через дибы делал...

[LP_FUNKy]

Ой спасибки всем !