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

Вниз

IdHTTP и TMemoryStream и String   Найти похожие ветки 

 
syserg   (2010-04-01 16:16) [0]

Ситуация такая, гружу страницу в поток через IdHTTP

IdHTTP.Request.AcceptEncoding:="gzip, deflate";
inStream:=TMemoryStream.Create;
try
IdHttp.Get(url,inStream);
outStream:=TMemoryStream.Create;
 try
  gZipDecompress(inStream,outStream);
  outStream.Position:=0;
finally outStream.Free; end;
finally inStream.Free; end;

А вот как мне вытянуть из OutStream в String для дальнейшей обработки ума не приложу.
Doc:=coHTMLDocument.Create as IHTMLDocument2; //создали экземпляр документа
 V:=VarArrayCreate([0,0], varVariant);
 V[0]:=Cache;
 Doc.Write(PSafeArray(TVarData(v).VArray));

Кто знает, подскажите.
Я пробовал через SetString(Cache, PChar(OutStream.Memory), еще через одну функцию, но результат на выходе одинаковый - квадратики вместо текста. Чего я не правильно делаю? Причем в memo1.lines.loadfromstream() - все нормально.


 
Slym ©   (2010-04-02 08:08) [1]

HTTP:=TIdHTTP.Create;
try
 HTTP.Compressor:=TIdCompressorZLib.Create(HTTP);
 Cache:=Http.Get(url);
finally
 HTTP.Free;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.008 c
15-1371232669
wl
2013-06-14 21:57
2013.12.01
Дурацкий вопрос)


15-1371206675
Empleado
2013-06-14 14:44
2013.12.01
nostalgie


2-1361265627
kelpie1988
2013-02-19 13:20
2013.12.01
Как создать dll c вложенными функциями?


15-1370939812
брат Птибурдукова
2013-06-11 12:36
2013.12.01
Подскажите инструмент


1-1319355370
Человек
2011-10-23 11:36
2013.12.01
Подавление всех Exception кроме определенного