mam problem którego niestetty nie moge rozwikłać. Otóż stworzyłem nowy Unit i tak zdefiniowałem klase odpowiedzialna za konkretne działania:
type TLib = class(TObject)
ID_HTTP : TIdHTTP;
ID_COOKIE_MANAGER: TIdCookieManager;
private
strUser_Name, strUser_Password, strUser_Server, strUser_Agent: string;
boolConnected : boolean;
procedure DISCONNECT();
public
constructor Create();
procedure CONNECT();
procedure SET_CONFIG();
end;
constructor TLib.Create();
begin
ID_HTTP := TIdHTTP.Create(nil);
ID_COOKIE_MANAGER := TIdCookieManager.Create(nil);
with ID_HTTP do
begin
with Request do
begin
UserAgent := strUser_Agent;
Accept:= CstrAccept;
AcceptLanguage := CstrAccept_Language;
AcceptEncoding := CStrAccept_Encoding;
Connection := CstrConnection;
CacheControl := CstrCache_Control;
ContentType := CstrContent_Type;
end;
AllowCookies := true;
CookieManager := ID_COOKIE_MANAGER;
end;
end;
Utworzylem tez forme i na nie przycisk który wywołuje procedure Create w TLib i za każdym razem dostaję wyjątek "Access violation .... " nie wime dlaczego. Program zatrzymuje sie na:
ID_HTTP := TIdHTTP.Create(nil);
Szukałem po forum i znalazłem http://4programmers.net/Forum/328325. Napisane podobnie jak to moje(tyle ze jako oddzielny wątek), więc nie rozumiem dlaczego mój kod nie działa
Z góry dziękuje za wszelką pomoc...