Application Server и передача Stream

← →
salexn (2007-10-19 14:50) [0]

Доброго дня!
Есть Application Server, у него есть метод GetData. Нужно передавать через него картинки, файлы и т.д. Как это сделать наиболее простым способом?

← →
salexn (2007-10-19 14:51) [1]

Да, хотелось все это передавать через Stream, т.к. вроде все эти вещи легко загоняются в Stream

← →
Сергей М. © (2007-10-19 14:54) [2]

> Как это сделать наиболее простым способом?

Result := VarArrayCreate(..);
.. заполнение Result"а ..

> отелось все это передавать через Stream

Не получится.

← →
salexn (2007-10-19 15:46) [3]

Странно...
На сервере делаю:
aStream := TMemoryStream.Create;
try
TBlobField(IBQuery1.Fields[0]).SaveToStream(aStream);
BufferSize := AStream.Size;(>100 000)
AStream.Position := 0;
HelpData := VarArrayCreate([0, BufferSize - 1], varByte);
BufPointer := VarArrayLock(HelpData);
try
Move(aStream.Memory^, BufPointer^, BufferSize);
finally
VarArrayUnLock(HelpData);
end;
finally
aStream.Free;
end;

На клиенте
Connection.AppServer.GetHelpData(1, aHelpData);
AMemoryStream := TMemoryStream.Create;
try
BufferSize := Length(aHelpData) * 2 + 1;
...
BufferSize = 63!!!
Что не так?

← →
salexn (2007-10-19 16:53) [4]

Все разобрался!!! Length подвел...

Application Server и передача Stream Найти похожие ветки