Передача картинки от сервера к клиенту

← →
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]

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

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

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

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

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

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