CurlPas и Delphi 7

@lexesv · Регистрация: 05.08.2009

Author24 — интернет-сервис помощи студентам

Прошу помощи с компонентом tCur (http://curlpas.sourceforge.net/)

Необходимо сделать что бы он заработал на Delphi 7

Сейчас проблема в следующем

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
Result:TMemoryStream;
begin
Result := TMemoryStream.Create;
 
Curl1:=TCurl.Create(nil);
Curl1.FollowLocation:=True;
Curl1.URL:='http://google.com';
Curl1.OutputFile := 'testget.tmp';
Curl1.OutputStream := Result;
Curl1.Perform;
 
//Memo1.Lines.LoadFromFile('testget.tmp');
Memo1.Lines.LoadFromStream(Result);
 
Result.Free;
Curl1.Free;
 
end;

если использую

Delphi

1	Curl1.OutputFile := 'testget.tmp';

то всё прекрасно компилится и работает

а вот если

Delphi

1	Curl1.OutputStream := Result;

то Access violation

В прикреплённых файлах сам компонент с примерами (пример кстати тоже вызывает AV) и документацией + либкурл 7.15
(Curl устанавливается на вкладке компонента Internet.)

Надеюсь кто нибудь сможет поправить компонент что б он заработал на 7 делфи.

Готов заплатить.

curlpas-2005-11-05.rar
libcurl-7.15.0-win32-ssl-sspi.zip

18.09.2009, 01:21

Все прекрасно работает, я правда делал по другому не как у Вас. Но пример я использовал из справки + D2006. )

xNews
	18.09.2009, 01:21	2
	Все прекрасно работает, я правда делал по другому не как у Вас. Но пример я использовал из справки + D2006. )