Zugriffsverletzung Thread/IdPOP3

[Meflin]

Hi,
folgender code, der als thread ausgeführt wird, erzeugt einen fehler lesen von adresse 00000000

Delphi-Quellcode:

function testthread(p: pointer): LongInt;
var my_idle: integer;
    pwtotest: string;
begin
  my_idle := integer(p^);
  with form1 do begin

    if test_typ = 'pop3' then begin
      basepop3 := TIdPOP3.Create(form1);
      with basepop3 do begin
        name := 'pop3_'+inttostr(my_idle);
        host := 'host';
        username := 'username';
        parent := form1;
      end;
    end;

    with TListBox(FindComponent('buffer_'+inttostr(my_idle))) do begin
      while items.Count > 0 do begin

        pwtotest := items[0];
        items.Delete(0);

        if test_typ = 'pop3' then begin
          with TIdPOP3(FindComponent('pop3_'+inttostr(my_idle))) do begin
            try
              [color=red]password := 'test';[/color]
              [color=red]connect;[/color]
              form1.donegauge.Progress := form1.donegauge.Progress + 1;
            except
              form1.donegauge.Progress := form1.donegauge.Progress + 1;
            end;
          end;
        end;
      end;
    end;
  end;
  result := 0;
end;

und zwar in den rot markierten zeilen. woran könnte das liegen?

[moritz]

Wahrscheinlich wird es das in

Delphi-Quellcode:

with TIdPOP3(FindComponent('pop3_'+inttostr(my_idle))) do begin

gesuchte Element nicht geben.

[Meflin]

aber das wird doch n paar zeilen darüber erstellt :?

[Duffy]

Hallo Meflin,

Zitat:

Zitat von Onz

Wahrscheinlich wird es das in

Delphi-Quellcode:

with TIdPOP3(FindComponent('pop3_'+inttostr(my_idle))) do begin

gesuchte Element nicht geben.

Ich denke Onz hat Recht.

mach Dir doch eine Variable vom Typ TComponent und weise der das Ergebnis von

Delphi-Quellcode:

var
  MyComponent: TComponent;
begin
  MyComponent := FindComponent('pop3_'+inttostr(my_idle)); 
end;

dann brauchst Du noch abfragen

Delphi-Quellcode:

if MyComponent = nil then
  ShowMessage('Bingo .. voll daneben gegriffen ...');

bye
Claus

[Meflin]

ok, es scheint tatsächlich nicht zu existieren!
aber was stimmt mit der erzeugung nicht?

[scp]

Zitat:

Zitat von Meflin

ok, es scheint tatsächlich nicht zu existieren!
aber was stimmt mit der erzeugung nicht?

Du hast weiter oben

Delphi-Quellcode:

with TListBox(FindComponent('buffer_'+inttostr(my_idle))) do begin

stehen. Das bedeutet, er benutzt dann beim zweiten FindComponent() die Prozedur von der ListBox und nicht die vom Form.
Tesete mal:

Delphi-Quellcode:

MyComponent := Form1.FindComponent('pop3_'+inttostr(my_idle));

[Meflin]

das wars!
thx!