Скачать: CL | DM;

Передача картинки от сервера к клиенту   Найти похожие ветки 

← →
lewka ©   (2008-11-29 21:06) [0]

Подскажите пожалуйста как передать картинку от сервера клиенту. Вот я как текст передать знаю, а как картинку передать не пойму. procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var zapros,s:string; JpegIm: TJpegImage; Hour, Min, Sec, MSec: Word; bm: TBitMap;
begin
bm := TBitMap.Create;
bm.Width := Screen.Width;
bm.Height := Screen.Height;
BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height, GetDC(0), 0, 0, SRCCOPY);
JpegIm := TJpegImage.Create;
JpegIm.Assign(bm);
JpegIm.CompressionQuality := 10;
JpegIm.Compress;
with AThread.Connection do begin
zapros:=readLn;

if SameText(zapros, "21345") then Disconnect;
if Sametext(zapros, "1") then begin s:=Memo1.Text;
writeln(zapros);end;
end;end;
Ведь как я понимаю можно передавать только тип string

---

← →
Leonid Troyanovsky ©   (2008-11-29 21:13) [1]

> lewka ©   (29.11.08 21:06)  

> Ведь как я понимаю можно передавать только тип string

Да хоть stream.

--
Regards, LVT.

---

← →
lewka ©   (2008-11-29 21:17) [2]

А как передать другие типы данных? Как мне отправить картинку?

---

← →
Leonid Troyanovsky ©   (2008-11-29 21:19) [3]

> lewka ©   (29.11.08 21:17) [2]

> А как передать другие типы данных? Как мне отправить картинку?

Как stream?

--
Regards, LVT.

---

← →
lewka ©   (2008-11-29 21:22) [4]

Приведите пример передачи картинки  от сервера клиенту. только саму передачу

---

← →
Leonid Troyanovsky ©   (2008-11-29 21:30) [5]

> lewka ©   (29.11.08 21:22) [4]

> Приведите пример передачи картинки  от сервера клиенту.
> только саму передачу

TCustomWinSocket.SendStreamThenDrop Method ?

--
Regards, LVT.

---

← →
lewka ©   (2008-11-29 21:38) [6]

А полностью пример с методом можно? Чет не очень понимаю

---

← →
Сергей М. ©   (2008-11-30 20:04) [7]

> Чет не очень понимаю


Чет ты не очень понимаешь ?

---

← →
lewka ©   (2008-11-30 20:31) [8]

А где взять компоненты TCustomWinSocket

---

← →
Сергей М. ©   (2008-11-30 21:03) [9]

Нигде.
Это не компонент, а вспомог.класс в составе юнита scktcomp.pas, в котором реализованы компоненты TClientSocket и TServerSocket

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c