Access violation at address при использовании DLL

[spamer]

Есть ДЛЛ:

library Project1;

uses
  SysUtils,
  Classes,
  StrUtils,
  IdCookieManager,
  IdHTTP;

{$R *.res}

procedure GetCookie(Head : PChar; HTTP : TIdHTTP);
var
  i, j : Integer;
  Cookie : PChar;
begin
Cookie := '';

for i := 1 to Length(Head) do
if Copy(Head, i, 10) = 'Set-Cookie' then
  begin
    for j := i+11 to length(Head) do
      if Head[j] = ';' then
        begin
          Cookie := PChar(Cookie + Copy(Head, i+11, j-i-10));
          break;
        end;
  end;

if Length(Cookie) > 50 then
  begin
    Cookie := PChar('Connection: Keep-Alive'+#13+'Cache-Control: no-cache'+#13+'Cookie: remixchk=5'+'Cookie: ' + Cookie);
    HTTP.Request.CustomHeaders.Clear;
    HTTP.Request.CustomHeaders.Add(Cookie);
  end;
end;

function Autoriz(mail, pass : PChar; HTTP : TIdHTTP ; CookieMan : TIdCookieManager) : Integer; stdcall;
var
  S, ResultStr : PChar;
  Logged : Boolean;
  DT : TStringList;
  i, j, k : Integer;
begin
S := '';
HTTP.HandleRedirects := True;
HTTP.CookieManager := CookieMan;
HTTP.AllowCookies := True;

DT := TStringList.Create;
DT.Add('op=a_login_attempt');
DT.add('email=' + mail);
DT.Add('pass=' + pass);
DT.Add('expire=0');

S := PChar(HTTP.Post('http://www.vkontakte.ru/login.php', DT));

if Pos('good', S) <> 0 then Logged := True;
if S = 'failed' then Logged := False;

if Logged then
  begin
    GetCookie(PChar(HTTP.Response.RawHeaders.Text), HTTP);
    S := PChar(HTTP.Get('http://www.vkontakte.ru/feed2.php'));
    if S <> '{"user": {"id": -1}}' then
      begin
        i := PosEx('id', s, 10);
        j := PosEx(':', s, i);
        k := PosEx('}', s, j);

        i := PosEx('friends', s, k);
        j := PosEx(':', s, i+10);
        k := PosEx('}', s, j);

        i := PosEx('messages', s, k);
        j := PosEx(':', s, i+10);
        k := PosEx('}', s, j);
        ResultStr := PChar(Copy(s, j+1, k-j-1));
        Result :=StrToInt(ResultStr);
      end;
  end
else
  Result := -1;
DT.Free;
end;


exports
    Autoriz;

begin
end.

Если использовать код из длл просто в модуле ,то все работает.

Вызываю длл так:

function Autoriz(mail, pass : PChar ; HTTP : TIdHTTP ; CookieMan : TIdCookieManager) : Integer; stdcall; external 'Project1.dll';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:= IntToStr(Autoriz(PChar(Edit1.Text), PChar(Edit2.Text), HTTP1, CookieManager1));
end;

end.

При нажатии на кнопку вылетает ошибка
http://s45.radikal.ru/i108/0908/4e/ceb2983da4f3.jpg

Вместо String я везде стал использовать PChar, что бы модуль ShareMem не использовать, т.к. тоже вылетает потом ошибка только другого типа.

Кто знает как избавиться от Access violation at address ?

З.Ы. Пробовал длл вызывать динамически, все равно вылетает Access violation at address.

[lexaltd]

Используй Run-time packages , иначе не получится передать объекты ; HTTP : TIdHTTP и CookieMan : TIdCookieManager
Или переноси все объекты в .exe или .dll

[Daramant]

spamer
Выполни код пошагово, чтобы определить точнее место возникновения исключения.
Так сказать что-то сложно, может выложи пример.

[JTG]

У меня всё работает, возвращает 0 если ввести верные логин/пароль и -1 если нет (indy 10)

[spamer]

Парни спасибо всем.
Действительно, перекинул это все чудо я в Делфи 9, вроде заработало. Но так как lexaltd сказал ,что объекты лучше не передавать, в качестве параметров функции, я переделал вот так длл:

library ProjectDLL;

uses
  SysUtils,
  Classes,
  StrUtils,
  IdCookieManager,
  IdHTTP;

{$R *.res}

procedure GetCookie(Head : PChar; HTTP : TIdHTTP);
var
  i, j : Integer;
  Cookie : PChar;
begin
Cookie := '';

for i := 1 to Length(Head) do
if Copy(Head, i, 10) = 'Set-Cookie' then
  begin
    for j := i+11 to length(Head) do
      if Head[j] = ';' then
        begin
          Cookie := PChar(Cookie + Copy(Head, i+11, j-i-10));
          break;
        end;
  end;

if Length(Cookie) > 50 then
  begin
    Cookie := PChar('Connection: Keep-Alive'+#13+'Cache-Control: no-cache'+#13+'Cookie: remixchk=5'+'Cookie: ' + Cookie);
    HTTP.Request.CustomHeaders.Clear;
    HTTP.Request.CustomHeaders.Add(Cookie);
  end;
end;

function Autoriz(mail, pass : PChar) : Integer; stdcall;
var
  S, ResultStr : PChar;
  Logged : Boolean;
  DT : TStringList;
  i, j, k : Integer;
  HTTP : TIdHTTP ;
  CookieMan : TIdCookieManager;
begin
HTTP := TIdHTTP.Create;
HTTP.AllowCookies := True;
HTTP.CookieManager := CookieMan;
HTTP.HandleRedirects := True;
HTTP.ProtocolVersion := pv1_1;
HTTP.ProxyParams.BasicAuthentication := True;
HTTP.ProxyParams.ProxyPort := 0;
HTTP.RedirectMaximum := 15;

CookieMan := TIdCookieManager.Create;

S := '';

DT := TStringList.Create;
DT.Add('op=a_login_attempt');
DT.add('email=' + mail);
DT.Add('pass=' + pass);
DT.Add('expire=0');

S := PChar(HTTP.Post('http://www.vkontakte.ru/login.php', DT));

if Pos('good', S) <> 0 then Logged := True;
if S = 'failed' then Logged := False;

if Logged then
  begin
    GetCookie(PChar(HTTP.Response.RawHeaders.Text), HTTP);
    S := PChar(HTTP.Get('http://www.vkontakte.ru/feed2.php'));
    if S <> '{"user": {"id": -1}}' then
      begin
        i := PosEx('id', s, 10);
        j := PosEx(':', s, i);
        k := PosEx('}', s, j);

        i := PosEx('friends', s, k);
        j := PosEx(':', s, i+10);
        k := PosEx('}', s, j);

        i := PosEx('messages', s, k);
        j := PosEx(':', s, i+10);
        k := PosEx('}', s, j);
        ResultStr := PChar(Copy(s, j+1, k-j-1));
        Result :=StrToInt(ResultStr);
      end;
  end
else
  Result := -1;

HTTP.Disconnect;
HTTP.Free;
CookieMan.Free;
DT.Free;
end;


exports
    Autoriz;

begin
end.

Только меня интересует еще 1 вопрос, нече что я в процедуру GetCookie передаю HTTP : TIdHTTP, который был создан в функции? Или надо было в процедуре создавать свой объект TIdHTTP ?

З.Ы. Извините за такие тупые вопросы, просто меня эти ошибки задолбали уже.