Smtp Connect Probleme

[Ati]

Hallo zusammen,

nachdem meine Anwendung jetzt im Betrieb ist habe ich vereinzelt gehört, das beim drücken des Speicher-Buttons eine Fehlermeldung erscheint. Sinngemäß "SMTP-Komponente not connected". Ich benutze die SMTP-Kompo von ICS und die Connect-Funktion sieht wie folgt aus.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
eduser.Text:=getuser;
smtp.Connect;
end;

Kann ich das eventuell sicherer oder besser machen??

Ati

[Ati]

Hallo zusammen,

leider muß ich dieses Thema nochmal aufwühlen. Heute konnte ich mich mal an diesem Problem zu schaffen machen. Ich habe jetzt folgendes versucht/gemacht. Wenn der Speichern-Button gedrückt wird, wird folgender Code ausgeführt:

Delphi-Quellcode:

procedure TForm1.btnspeichernClick(Sender: TObject);
var status:Boolean;
begin
status:= smtp.Connected;
if ord(status)=0 then begin
smtp.Connect;
delay(2000);
eingabe;
end
else
eingabe;
end;

"eingabe" ist hierbei der Code welcher vorher verwendet wurde (dank Sharky):

Delphi-Quellcode:

Procedure Tform1.eingabe;
begin
  if (CheckInput) then
   begin
     dssave;
   end
   else
   begin
     ShowMessage('Bitte Eingabe überprüfen');
     exit;
   end;
end;

Wenn ich nun zu Testzwecken die Connection kappe und dann Daten eingebe wird alles so ausgeführt wie ich es mir Vorstelle.... mit einem kleinen Schönheitsfehler. Es erscheint die Melung "Bitte Eingabe überprüfen" und das obwohl alles stimmt und auch gespeichert wird :gruebel: :gruebel:
Weiß jemand Rat??

Danke Ati

[marabu]

Ich behaupte trotzdem, dass CheckInput() den Rückgabewert FALSE liefert.

Grüße vom marabu

[Ati]

Mhm. Merkwürdig. Mal abgesehen davon das der DS nicht gespeichert werden darf wenn die Angaben nicht den Anforderungen entsprechen bin ich mir sicher das ich alles eingetragen habe. Nun bei der zweiten Testserie hatte ich dieses Problem immernoch. Jetzt bei dem dritten Versuch klappt alles so wie es sein sollte. Werde die Anwendung bei uns jetzt mal verteilen und auf das gemopper warten.

Ati