Moinsen,
habe ein kleines Problem mit meiner SimpleSMTPMail-Unit. Diese hat immer super funktioniert, aber da ich sie mitlerweile immer öfter nutze, möchte ich sie in eine DLL auslagern.
Die DLL sieht so aus:
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34:
| library SimpleSMTPMail;
uses
function SendSimpleSMTPMail(AHost, AUsername, APassword, ASender, ASubject: String; APort: Integer; ARecipients, ABody: TStrings; UseSASL: Bool) : Integer; stdcall; var begin try
with MailMessage do begin From.Address := MailSender; for i := 0 to MailRecipients.Count - 1 do Recipients.Add.Address := MailRecipients.Strings[i]; Subject := MailSubject; Body := MailBody; end;
except raise Exception.Create('You shouldn''t see this!'); end; end;
exports SendSimpleSMTPMail;
end. |
Der Aufruf in meinem Test-Programm sieht so aus:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| function SendSimpleSMTPMail(AHost, AUsername, APassword, ASender, ASubject: String; APort: Integer; ARecipients, ABody: TStrings; UseSASL: Bool) : Integer; stdcall; external 'SimpleSMTPMail.dll';
ShowMessage(IntToStr(SendSimpleSMTPMail('smtp.gmail.com', 'myname@googlemail.com', 'mypassword', 'myname@googlemail.com', 'Mail-Test', 587, MemoRecipients.Lines, MemoBody.Lines, True))); |
In meiner Unit hat das immer einwandfrei funktioniert, warum klappt es nun in der DLL nicht?
Ich bin machtlos, bitte helft mir auf die Sprünge
Lg,
LuMa