Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.01.20;
Скачать: CL | DM;

Вниз

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 подвел...



Страницы: 1 вся ветка

Текущий архив: 2008.01.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
9-1165844621
Аццкий_рыцарь
2006-12-11 16:43
2008.01.20
Насчет разработки РПГ


15-1197355849
boriskb
2007-12-11 09:50
2008.01.20
История языков


15-1197917123
Катунов Юрий
2007-12-17 21:45
2008.01.20
Библиотека vcl70.bpl и компоненты с Quick Reports


15-1196156732
All More system
2007-11-27 12:45
2008.01.20
Проблема с работой в M$ Virtual PC 2007


15-1197639810
Fran
2007-12-14 16:43
2008.01.20
Дата прописью на калмыцком языке