AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Prozedur blockiert Programm. Und finde den Fehler nicht.

Prozedur blockiert Programm. Und finde den Fehler nicht.

Ein Thema von Informatik2012 · begonnen am 14. Apr 2012 · letzter Beitrag vom 14. Apr 2012
Antwort Antwort
Informatik2012

Registriert seit: 30. Mai 2011
30 Beiträge
 
#1

Prozedur blockiert Programm. Und finde den Fehler nicht.

  Alt 14. Apr 2012, 19:24
Soweit ich rausgefunden habe stürzt das Programm beim Login in den SMTP Server ab.
Delphi-Quellcode:
  login_SMTP(SetUp.Username,SetUp.Passwort,SetUp.SMTPServer,SetUp.SMTPPOrt,SMTPSocket); sendMessage(SetUp.Username,SetUp.Passwort,SetUp.SMTPServer,SetUp.SMTPPort,2,SetUp.Username,Edit2.Text,Attachment,toMail,Richedit1,SMTPSocket);
//sendMessage(Username,PW,Server : String;Port, Priority : Integer; fromMail,Betreff: String;Anhang : TStringList;toMail : TStringList;Nachricht : TRichEdit; SMTPSocket : TIdSMTP);
  logoff_SMTP(SMTPSocket);
beim SendMessage stürzt es ab.
SendMessage ist es wie folgt definiert:
Delphi-Quellcode:
function login_SMTP(Username,PW,Server : String;Port : Integer; SMTPSocket : TIdSMTP):boolean;
begin
  if SMTPSocket.Connected then
  SMTPSocket.Disconnect();

   SMTPSocket.Username := Username;
   SMTPSocket.Password := PW;
   SMTPSocket.Port := Port;
   SMTPSocket.Host := Server;
    SMTPSocket.AuthType := satDefault;
   SMTPSocket.Connect;
   Result := SMTPSocket.Connected;
end;

procedure logoff_SMTP(SMTPSocket : TIdSMTP);
begin
   SMTPSocket.Disconnect();
end;

procedure sendMessage(Username,PW,Server : String;Port, Priority : Integer; fromMail,Betreff: String;Anhang : TStringList;toMail : TStringList;Nachricht : TRichEdit; SMTPSocket : TIdSMTP);
var IdNachricht : TIdMessage;
   i : integer;
   s : String;
  IdAnhang : TIdAttachmentFile;
begin
   if login_SMTP(Username,PW,Server,Port,SMTPSocket) = true then
   begin
      IdNachricht := TIdMessage.Create(nil);
      with TIdText.Create(IdNachricht.MessageParts, nil) do
      begin
         ContentType := 'text/plain';
         Body.Text := Nachricht.Text;
      end;
      s := '';
      with IdNachricht do
      begin
         ContentType := 'multipart/*';
         From.Text := fromMail;
         ReplyTo.EMailAddresses := fromMail;
         Subject := Betreff;
         Priority := TIdMessagePriority(Priority);
         s := BccList.EmailAddresses;
         for i := 0 to toMail.Count -1 do
         begin
            s := s+ toMail.Strings[i];
         end;
         BccList.EMailAddresses := s;
      end;
         if Anhang.Count >= 1 then
         begin
            for i := 0 to Anhang.Count -1 do
               IdAnhang := TIdAttachmentFile.Create(IdNachricht.MessageParts,Anhang[i]);
// IdAnhang.StoredPathName:=Anhang_Pfad.Strings[i];
// IdAnhang.Filename := Anhang_Datei.Strings[i];
// IdAnhang.OpenLoadStream;
// IdAnhang.CloseLoadStream;

         end;
      try SMTPSocket.Send(IdNachricht)
      finally   logoff_SMTP(SMTPSocket); end;
      //SMTPSocket.Free;
   end;
end;
end.
ich probiere den SMTP-Server von googlemail aus.
Als ich probiert hatte mit Web.DE SMTP-Server, kam die Fehlermeldung "bad sequenced commands".
Kann es sein, dass es am SMTP-Server liegt?
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
36.095 Beiträge
 
Delphi 2006 Professional
 
#2

AW: Prozedur blockiert Programm. Und finde den Fehler nicht.

  Alt 14. Apr 2012, 19:34
Und mit welcher Fehlermeldung stürzt es ab?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Informatik2012

Registriert seit: 30. Mai 2011
30 Beiträge
 
#3

AW: Prozedur blockiert Programm. Und finde den Fehler nicht.

  Alt 14. Apr 2012, 19:36
mit gar keiner. es reagiert einfach nicht mehr.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
36.095 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Prozedur blockiert Programm. Und finde den Fehler nicht.

  Alt 14. Apr 2012, 19:41
Dann ist es nicht abgestürzt, sondern es reagiert nicht mehr, weil es auf Beendigung der Prozedur wartet.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Informatik2012

Registriert seit: 30. Mai 2011
30 Beiträge
 
#5

AW: Prozedur blockiert Programm. Und finde den Fehler nicht.

  Alt 14. Apr 2012, 19:45
ja okay. das kann sein.
Also muss ich das versuchen über einen Thread zu realisieren, damit das Programm nicht blockiert wird?
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: Prozedur blockiert Programm. Und finde den Fehler nicht.

  Alt 14. Apr 2012, 21:54
Findest du nicht dass du da doppelmoppelst?

login
sendmessage
logout

und in sendmessage machst du
login
...
logout
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2016 by Daniel R. Wolf