Ребята подскажите пожалуйста как загнать содержимое сайта в переменную а не в файл.
| Код |
procedure CurlPost;
var
Curl: TCurl;
begin
Curl := TCurl.Create(nil);
Curl.URL := Self.url;
Curl.HttpHeader.Add('User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.20) Gecko/20110803 Firefox/3.6.20 GTB7.1 ( .NET CLR 3.5.30729; .NET4.0E)');
Curl.HttpHeader.Add('Accept: image/png,image/*;q=0.8,*/*;q=0.5');
Curl.HttpHeader.Add('Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3');
Curl.HttpHeader.Add('Accept-Encoding: deflate');
Curl.HttpHeader.Add('Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7');
Curl.HttpHeader.Add('Keep-Alive: 5');
Curl.HttpHeader.Add('Connection: keep-alive');
if Self.Refferer = '' then Curl.HttpHeader.Add('Referer: '+ Self.url) else Curl.HttpHeader.Add('Referer: '+Self.Refferer);
if Self.data <> '' then Curl.PostFields := Self.data;
Curl.CookieFile := Self.CookieFile;
Curl.OutputFile := 'TempFile.html'; // вот здесь результат GET/POST запроса записывается в файл.
// хотя может по идее быть передан в Curl.OutputStream := в переменную
if not Curl.Perform then
begin
Self.ResultSendData := false;
end
else Self.ResultSendData := true;
Curl.Free;
end;
|
пробовал так
| Код |
var
buf:TMemoryStream;
.....
buf := TMemoryStream.Create;
Curl.OutputStream := buf;
Memo1.Lines.LoadFromStream(buf);
// выдает ошибку access violation
|
помогите разобраться плиз |
)