komisch. ich hab des prog auch n paar freunden zum testen gegeben (alle xp) und bei denen gehts prima. ich versteh des ned. wenn man die neuen kontodaten eingegeben hat wird ne testverbindung hergestellt. wenn da was ned funzt, müsst ers als fehlermeldung ausspucken...
Code:
procedure TForm4.Panel5Click(Sender: TObject);
var ListItem: TListItem;
fehler:integer;
begin
fehler:=0;
if not (edit1.Text ='') and not (edit2.Text ='') and not (edit4.Text ='') then begin
while isdoing=1 do begin
application.ProcessMessages;
sleep(5);
end;
try
isdoing:=1;
form1.POP.Disconnect;
form1.POP.Host := edit1.Text;
form1.POP.username := edit2.Text;
form1.POP.password := maskedit1.Text;
form1.POP.Connect(2000);
form1.POP.Disconnect;
except
fehler := 1;
form1.POP.Disconnect;
MessageDlg('Es konnte mit diesen Daten keine Verbindung hergestellt werden!', mtError, [mbOk], 0);
end;
anders := 1;
if (eintrag<0) then begin
ListItem:=form3.ListView1.Items.Add;
ListItem.Caption := edit4.Text;
ListItem.Subitems.Add('');
ListItem.Subitems.Add(edit2.Text);
ListItem.Subitems.Add(maskedit1.Text);
ListItem.Subitems.Add(edit3.Text);
if panel1.Caption='X' then
ListItem.Subitems.Add('1')
else
ListItem.Subitems.Add('0');
ListItem.Subitems.Add(edit1.Text);
if form3.ListView1.Items.Count = 1 then
form3.ListView1.Items.Item [standardsmtp].SubItems.strings[0] := 'standard';
end
else begin
try
form3.ListView1.Items.Item[eintrag].Caption := edit4.Text;
form3.ListView1.Items.Item [eintrag].SubItems.strings[1] := edit2.Text;
form3.ListView1.Items.Item [eintrag].SubItems.strings[2] := maskedit1.Text;
form3.ListView1.Items.Item [eintrag].SubItems.strings[3] := edit3.Text;
if panel1.Caption='X' then
form3.ListView1.Items.Item [eintrag].SubItems.strings[4] := '1'
else
form3.ListView1.Items.Item [eintrag].SubItems.strings[4] := '0';
form3.ListView1.Items.Item [eintrag].SubItems.strings[5] := edit1.Text;
except
end;
end;
end
else
MessageDlg('Zu wenig Informationen!', mtError, [mbOk], 0);
hide;
isdoing:=0;
end;