Как отправить/принять jpeg через winsock ?

стоит задача передачи снимков экрана от компьютера к компьютеру. В случае с bmp cоздаю TBitmap, помещаю картинку туда, заполняю ему BitmapInfo, далее при передаче функцией send пересылаю размер картинки, который можно посчитать (ширина Х высота Х кол-вобитнацвет) + BitmapInfo, затем следует цикл с посылками по 1000 байт пока все не передастся, на том конце приняв данные из них собирается ф-ией setdibits картинка bmp, но ума не приложу КАК тоже самое провернуть с jpeg-ом, прошу помочь

0

Добавте модуль JPEG в Uses;
Создайте обект, засуньте в него файл, создайте TBitmap и поместите из Jpeg в TBitmap.
Передавайте.
На выходе получите BMP-файл, обратной конвертацией сохраняете. Получаем JPG-файл.

0

Сообщение от Андрей Борисови Добавте модуль JPEG в Uses; Создайте обект, засуньте в него файл, создайте TBitmap и поместите из Jpeg в TBitmap. Передавайте. На выходе получите BMP-файл, обратной конвертацией сохраняете. Получаем JPG-файл.

я как раз не хочу передавать по сети тяжелый bmp, а хочу легкие jpg пересылать

0

Попробуйте работать иначе. Делаем скрин в TBitmap. После этого в TJPEGImage его копируем(через Assign), создаём стрим(TMemoryStream) и в него записываем через SaveToStream. Данные из стрима передаём по сети. На том конце, читаем переданные данные в стрим, создаём TJPEGImage, и использую LoadFromStream загружаем изображение. В итоге - мы сфоткали, сохранили в памяти жпег, передали его, и загрузили из памяти)

1

Сообщение от ElKornacio Попробуйте работать иначе. Делаем скрин в TBitmap. После этого в TJPEGImage его копируем(через Assign), создаём стрим(TMemoryStream) и в него записываем через SaveToStream. Данные из стрима передаём по сети. На том конце, читаем переданные данные в стрим, создаём TJPEGImage, и использую LoadFromStream загружаем изображение. В итоге - мы сфоткали, сохранили в памяти жпег, передали его, и загрузили из памяти)

до слов данные из стрима передаем по сети понятно что делать, а дальше нет не знаю как через сокет это сделать, в случае с бмп шлю данные из буфера функцией send(), причем явно указывая размер каждой посылки и размер всего буфера. совместимы ли вообще эти вещи, stream и его отсыл через send() ? и прием стрима через recv() ? В примерах из интернета стрим тесно ходит с готовыми компонентами, кторые я не использую и вписать их в существующий проект не представляю возможным, все построено на winsock.

0

Не помню, какие именно параметры у сенд и рецв, но у стрима есть доступ к памяти через Stream.Memory. Пишите что-то в духе send(Stream.Memory^, Stream.Size, 0), и на сервере recv(Stream.Memory^, Stream.Size, 0); но перед этим вам ещё надо передать размер, чтобы его указать перед принятием стрима)

1

Сообщение от ElKornacio Не помню, какие именно параметры у сенд и рецв, но у стрима есть доступ к памяти через Stream.Memory. Пишите что-то в духе send(Stream.Memory^, Stream.Size, 0), и на сервере recv(Stream.Memory^, Stream.Size, 0); но перед этим вам ещё надо передать размер, чтобы его указать перед принятием стрима)

Отлично! только что заработало, благодарю вас!
все в точности так кроме разве что принимаю через recv сначала в буфер, а затем уже из буфера заполняю стрим, сразув стрим не знаю как да и не важно, радости полно))
приведу все же часть кода,
отсыл:
jpg := TJpegImage.Create;
jpg.LoadFromFile('orig.jpg');
stream:=TMemoryStream.Create;
jpg.SaveToStream(Stream);
jpg.Free;
if send(ClientInformation.Socket, stream.memory^ , 2502, 0) = SOCKET_ERROR then
//вывод кода ошибки
begin
err:=WSAGetLastError;
ShowMessage('socket error. '+IntToStr(err));
end;

прием:
jpg := TJpegImage.Create;
stream:=TMemoryStream.Create;
GetMem(buf, 2502); //2502 просто фиксированный размер посылки, птому что заранее знаю сколько придет, а в программ уже сделаю отдельную передачу размера до передачи самого jpeg-а
res := recv(Params^.Socket, pointer(integer(buf))^, 2502, 0); //тут не пишу, смотрю если res=-1 вывожу код ошибки сокета.
stream.Position:=0;
stream.WriteBuffer(pointer(integer(buf)) ^, 2502);
form1.Label4.Caption:='stream.size = '+inttostr(stream.Size); //просто показал размер
stream.SaveToFile('orig.jpg'); //ВОТ ОНО!
freemem(buf);

0