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

[LP_FUNKy]

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

[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 21:08