Delphi: E-Mail-Versand / E-Mail-Formatierung

[Mike_]

Windows first searches the directory where the exe is located and does not find the bound dlls. The 2nd place Windows searches for the dlls is in the shared system32 directory.

(This MSDN article describes the Windows search order for dlls http://msdn.microsoft.com/en-us/library/ms682586.aspx.)

[SvenLittkowski]

Hmm, erneut Danke.

Bedeutet aber auch, wenn ich mein Programm an Leute verteile, daß ich dann auch einen Installer benutzen muß, damit die DLLs an die richtige Stelle kopiert werden, oder?

Ich hatte die DLLs im selben Verzeichnis wie die EXE meines Programmes, aber trotzdem der selbe Fehler. Sind dies die korrekten DLLs?

[Mike_]

Zitat von SvenLittkowski:

Ich hatte die DLLs im selben Verzeichnis wie die EXE meines Programmes, aber trotzdem der selbe Fehler. Sind dies die korrekten DLLs?

SvenLittkowski,

First step:
Question -> "Sind das die richtigen .dll´s"
Careful consideration -> Are more versions out there of the same kind of .dlls ?
Answer -> Yes

2nd step:
Question -> Why, who need different versions ?
Careful consideration -> What is the right version for my app. ? What do I use ?
Answer -> Indy v. X || Delphi X

3rd step:
Question -> Which version shoudl I take for Indy v. X || Delphi X ?
Careful consideration -> Google & Indypage

4th step:
Next time ask yourself that kind of questions and before asking, use the board search.

Otherwise I'm going to punish you by making you peel onions for 6 months in a submarine.
I swear I will.



Idea:
http://www.delphipraxis.net/157566-i...ml#post1075647

[SvenLittkowski]

Well, but the shocking fact is, that I really love onions! I eat them even fresh! True thing that. And also, I am very interested for submarines, especially the ones with the new "whisper engines" (these magnetically charging water tubes).

Well, I was of course looking before I was asking. I just today downloaded the latest version of the Indy components, v.10.0.52. And the DLLs I was downloading, are openssl v.1.0.0c for the i386 CPU and for Windows 32bit. That should work.

And the error is not an error of incompatibility, but of simply not finding them, as far as I can say. I wondered, if "libeay32.dll" and "ssleay32.dll" are the files I require. Seems so, based on what I researched. But still, why aren't they found? I have them just in the same folder like my new software I am developing, AND I pasted them inside my Windows' "System32" folder, too. Still, they are not found. That's why I wondered if these two files are the DLLs I needed, despite of my online research showing me, yes that they are.

I wished I could continue with the development, but this problem really holds me up.

[Mike_]

http://indy.fulgan.com/SSL/

Laut google (http://www.delphigroups.info/2/12/211367.html) kommt die Version 0.96 für dich in Frage.


Leider hast du aber meinen Rat nicht befolgt.
Denn ich hatte dir im vorherigen Post noch einen Link geschrieben zum Schluss als "Idea", wo genau diese Version als attachment von mir gepostet wurde.


Aber weißt du was ?
Du bist ein richtiger Glückspilz.
(Siehe Upload)

lG

[SvenLittkowski]

Yes! You was right, and using the new DLLs does not cause the program to error for missing DLLs! But - my program is back to the previous state of halting after having clicked the SEND button. Means, the source code is still faulty. And I can't find the problem with "Run to Cursor" and "Step Over". Es ist zum Mäusemelken!

Hier der Quelltext:

Code:

implementation

uses Box1;

{$R *.dfm}

procedure TEpsilon.FormCreate(Sender: TObject);
begin
 Epsilon.Color:=Alpha.ColorDialog.Color;
end;

procedure TEpsilon.ButtonMailClick(Sender: TObject);
begin
 idSMTP.Host:='smtp.googlemail.com';
 idSMTP.Port:=465; //smtp service usually runs on this port 25
 idSMTP.Password:='MyPassword';
 idSMTP.UseTLS:=utUseExplicitTLS;
 //setup idmessage parameters
 idmessage.From.address:=EditEMail.Text;
 idmessage.Recipients.EMailAddresses:='[e-mail]';
 idmessage.CCList.EMailAddresses:='';
 idmessage.BccList.EMailAddresses:='';
 idmessage.Subject:='My E-Mail';
 idmessage.Body.Text:=EditMailEra.Text+EditMailOld.Text+EditmailAmount.Text+EditMailModern.Text;
 idmessage.Body.Text:=idmessage.Body.Text+MemoMail.Lines.Text;
 //check if receipt confirmation is required
// if checkbox1.checked then idmessage.ReceiptRecipient.Text:=edfrom.Text;  //if required, set the sendback email address to your email address
 //send the message
 try
  try
   idSMTP.Connect;
   LabelStatus.Caption:='Connecting...';  //…then show the message
   LabelStatus.Hint:='Connecting...';  //…then show the message
   idSMTP.send(idmessage);
   LabelStatus.Caption:='Sending...';  //…then show the message
   LabelStatus.Hint:='Sending...';  //…then show the message
  //if an exception occurs…
  except
   on E: EIdSMTPReplyError do
   begin
    LabelStatus.Caption:=E.Message;  //…then show the message
    LabelStatus.Hint:=E.Message;  //…then show the message
   end;
  end;
 finally
  //disconnect from server
  if IdSMTP.Connected then
  begin
   IdSMTP.Disconnect;
   LabelStatus.Caption:='Disconnecting...';  //…then show the message
   LabelStatus.Hint:='Disconnecting...';  //…then show the message
  end;
 end;  
end;

procedure TEpsilon.ButtonBrowseClick(Sender: TObject);  // doesn't function, so I disabled it - for now
begin
// if OpenDialog.Execute then TIdAttachmentFile.Create(idmessage.MessageParts,OpenDialog.FileName);
// AddAttachments;
end;
(*
procedure TEpsilon.AddAttachments;  // caused problems, too
var
 li:  TListItem;
 idx: Integer;
begin
 //clear the attachment listview
 lvAttachments.Items.Clear;
 //loop through Idmessage and count parts
 for idx:=0 to Pred(Idmessage.MessageParts.Count) do
 begin
  li:=lvAttachments.Items.Add;
  // Check if Idmessage contains any attachments…
  if Idmessage.MessageParts.Items[idx] is TIdAttachmentFile then
  begin
   //if so, get the file names…
   li.Caption:=TIdAttachmentFile(Idmessage.MessageParts.Items[idx]).Filename;
   //and add them to the listview
   li.SubItems.Add(TIdAttachmentFile(Idmessage.MessageParts.Items[idx]).ContentType);
  end
  else
  begin
   li.Caption:=Idmessage.MessageParts.Items[idx].ContentType;
  end;
 end;
end;
*)
procedure TEpsilon.IdSSLIOHandlerSocketOpenSSLStatusInfo(Msg: String);
begin
 LabelStatus.Caption:=Msg;
end;

procedure TEpsilon.IdSMTPStatus(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
 LabelStatus.Caption:=AStatusText;
end;

end.

[Mike_]

Ich teste es schnell bei mir, leider habe ich mein Testprogramm von vor 1 Monate gelöscht.

Ich werde dann diesen Post updaten und hänge dir die Datei an.