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

zusammenfalten · markieren

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?

Wahrscheinlich wird es das in with TIdPOP3(FindComponent('pop3_'+inttostr(my_idle))) do begin gesuchte Element nicht geben.

aber das wird doch n paar zeilen darüber erstellt

Hallo Meflin,

Zitat von Onz:

Wahrscheinlich wird es das in 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

markieren

Delphi-Quellcode:

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

dann brauchst Du noch abfragen

markieren

Delphi-Quellcode:

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

bye
Claus

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

Zitat von Meflin:

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

Du hast weiter oben
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:
MyComponent := Form1.FindComponent('pop3_'+inttostr(my_idle));

das wars!
thx!