VPF::Передача картинки по UDP одним пакетом

MetalFan

Дата 14.5.2008, 11:14 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

Цитата(Max_Rendel @ 14.5.2008, 10:04

)

Image2.Picture.Bitmap := TBitmap(Msg)

кто тебе такой бред подсказал?

--------------------

There are always someone smarter than you...

Max_Rendel

Дата 14.5.2008, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 24.2.2007
Где: г.Благовещенск

Репутация: нет
Всего: нет

Цитата(MetalFan @ 14.5.2008, 17:14

)

кто тебе такой бред подсказал?

Сам придумал.

А как правельно загрузить данные в Image2.Picture.Bitmap?

Это сообщение отредактировал(а) Max_Rendel - 14.5.2008, 15:47

Max_Rendel

Дата 15.5.2008, 03:40 (ссылка)

(нет голосов)

Загрузка ...

ВСЁ ПОЛУЧИЛОСЬ!!! smile

ТЕМУ МОЖНО ЗАКРЫВАТЬ!!!!!!! smile

Клиент:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  MemStream: TMemoryStream;
  jpg: TJPEGImage;
begin
  MemStream:= TMemoryStream.Create;
  jpg := TJPEGImage.Create;

  jpg.Assign(Image1.Picture.Bitmap);
  jpg.ProgressiveEncoding := True;
  jpg.CompressionQuality := 30;
  jpg.Compress;

  jpg.SaveToStream(MemStream);;
  MemStream.Position := 0;

  IdUDPClient1.SendBuffer(MemStream.Memory^,MemStream.Size);

  MemStream.Free;
  jpg.Free;
end;

Сервер:

Код


procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  jpg:       TJPEGImage;
  MemStream: TMemoryStream;
begin
  if AData.Size > 0 then
  begin
    jpg :=      TJPEGImage.Create;
    MemStream:= TMemoryStream.Create;

    MemStream.CopyFrom(AData, AData.Size);
    MemStream.Position := 0;

    jpg.LoadFromStream(MemStream);
    Image1.Picture.Graphic := jpg;

    MemStream.Free;
    jpg.Free;
  end;
end;

Один нюанс: Размер буфера должен быть больше чем передаваемый файл.

Всем кто принимал участие, БОЛЬШОЕ СПОСИБО! smile

LeonW

Дата 14.11.2011, 08:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 7.10.2005

Репутация: нет
Всего: нет

Здравствуйте! может кто подсказать как правельно отправить хотябы по 64кб через УДП Спасибо!. smile

Код


begin
bmp:= TBitmap.Create;
Jpg:= TJpegImage.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
PatBlt(Form1.Canvas.Handle, 0, 0, Form1.ClientWidth, Form1.ClientHeight, WHITENESS);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
  Jpg.Assign(Bmp);
  jpg.CompressionQuality:=12;
  jpg.Compress;
ReleaseDC(0, DC);
  try
MemStream:= TMemoryStream.Create;
  jpg.SaveToStream(MemStream);
  MemStream.Position := 0;
IdUDPClient1.SendBuffer(MemStream.Memory^,MemStream.Size);
 finally
MemStream.Free;
jpg.Free;
Bmp.Free;
end;

с этим кодом будут ошибки вылетать smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »