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

← →
SupKlo (2005-10-19 11:47) [0]

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

← →
Dok_3D © (2005-10-19 15:26) [1]

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

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);

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

Как передать картинку с клиента на сервер через DCOM Найти похожие ветки