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

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

Как передать картинку с клиента на сервер через DCOM [Delphi, Windows]

SupKlo ©   (2005-10-19 11:47:00) 

Как передать картинку с клиента на сервер через DCOM

---

Набережных С.   (2005-10-19 17:51:00) [1]

В дополнение к [1] - можно также использовать IPicture или IStream.

---

Dok_3D   (2005-10-19 15:26:00) [2]

Ну, например, используя вариантный массив:

var P ,P1 : pointer
    buff : OleVariant

fs:=TFileStream.Create('d:\setup.bmp', fmOpenRead);
GetMem(P,fs.size);
 fs.ReadBuffer(P^,fs.size);        - читаем из потока в P^
 buff:=VarArrayCreate([0,fs.size],varByte);
 P1:=VarArrayLock(buff);
  move(P^,P1^,fs.size);   - перемещаем из P^ в массив buff
 VarArrayUnLock(buff);
FreeMem(P,fs.size);
fs.Free;

dcomConnection.AppServer.CoolMethod(buff);

---

Наверх