Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Как передать bitmap или jpeg по сети

Автор: LP_FUNKy 30.06.2003 2:59

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

Автор: Warlock 30.06.2003 13:56

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

Автор: LP_FUNKy 30.06.2003 16:38

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

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

Автор: mj 30.06.2003 18:41

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

Автор: LP_FUNKy 1.07.2003 17:26

Цитата
У меня есть что те надо...
Не томи ! Ответь !

Автор: mj 2.07.2003 18:30

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

Автор: Warlock 3.07.2003 13:04

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

Передача

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.
Будут вопросы - пиши.

Автор: mj 3.07.2003 20:47

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

Автор: LP_FUNKy 28.08.2003 17:37

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