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?