| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача картинки от сервера к клиенту [D7, XP]

lewka ©   (2008-11-29 21:06:00) 

Подскажите пожалуйста как передать картинку от сервера клиенту. Вот я как текст передать знаю, а как картинку передать не пойму. 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

---

Сергей М.   (2008-11-30 21:03:00) [1]

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

---

lewka   (2008-11-30 20:31:00) [2]

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

---

Сергей М.   (2008-11-30 20:04:00) [3]

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


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

---

lewka   (2008-11-29 21:38:00) [4]

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

---

Leonid Troyanovsky   (2008-11-29 21:30:00) [5]

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

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

TCustomWinSocket.SendStreamThenDrop Method ?

--
Regards, LVT.

---

lewka   (2008-11-29 21:22:00) [6]

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

---

Leonid Troyanovsky   (2008-11-29 21:19:00) [7]

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

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

Как stream?

--
Regards, LVT.

---

lewka   (2008-11-29 21:17:00) [8]

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

---

Leonid Troyanovsky   (2008-11-29 21:13:00) [9]

> lewka ©   (29.11.08 21:06)  

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

Да хоть stream.

--
Regards, LVT.

---

Наверх