Hallo,<br>
<br>
habe eine WinNT/2k Dienst geschrieben, der Emails abholt und weiter<br>
sendet, mit Indy 8.1 Beta Komponeten.<br>
Jetzt habe ich die idPOP3.pas und idSMTP.pas (die Komponenten)<br>
in Pop3Cl.dll und SmtpCl.dll übertragen und so verändert, dass kein<br>
TidMessage verwendet wird. Nach folgedem Prinzip....<br>
<br>
<b>Library</b> Pop3Cl,<br>
<b>uses</b> id..., id...<br>
<b>type</b><br>
TPop3Client = <b>class</b>(TidMessageClient)<br>
<b>public</b><br>
<b>constructor</b> Create(aOwner: TComponent);<b>override</b><br>
....<br>
<b>end;</b><br>
<b>constructor</b> TPop3Client.Create(aOwner: T...);<br>
<b>begin</b><br>
<b>inherited</b> Create(aOwner);<br>
.....<br>
<b>end;</b><br>
......<br>
......<br>
<br>
// end of TPop3Client<br>
<b>var</b> kPop3 : TPop3Client;<br>
<b>procedure</b> CreatePop3CL(aOwner: T...);<b>stdcall</b><br>
<b>begin</b><br>
kPop3 := TPop3Client.Create(aOwner);<br>
<b>end;</b><br>
......<br>
<b>exports</b><br>
CreatePop3Cl;<br>
.....<br>
<b>begin</b><br>
<b>end.</b><br>
<br>
das ganze fuer Connect,Disconnect.... als function mit Boolean.<br>
Username,Password,MessageBody/Header,... als Zeiger auf einen Record.<br>
Rueckgabe von Meldungen und Infos(onStatus) sende ich mit<br>
SendMessage und WM_COPYDATA.<br>
Das Ganze geht sogar ziemlich gut.<br>
(Danke an Andreas Kosch und sein Buch Delhpi Win32 Loesungen<br>
-Dienste,Botschaften und DLL's)<br>
<b>Hat aber einer eine bessere Lösung?</b><br>
<br>
da ich die Komponeten nur bei gebrauch laden will<br>
<br>
Mit freundlichem Gruss<br>
Hendrik Leesch<br>
<br>
habe eine WinNT/2k Dienst geschrieben, der Emails abholt und weiter<br>
sendet, mit Indy 8.1 Beta Komponeten.<br>
Jetzt habe ich die idPOP3.pas und idSMTP.pas (die Komponenten)<br>
in Pop3Cl.dll und SmtpCl.dll übertragen und so verändert, dass kein<br>
TidMessage verwendet wird. Nach folgedem Prinzip....<br>
<br>
<b>Library</b> Pop3Cl,<br>
<b>uses</b> id..., id...<br>
<b>type</b><br>
TPop3Client = <b>class</b>(TidMessageClient)<br>
<b>public</b><br>
<b>constructor</b> Create(aOwner: TComponent);<b>override</b><br>
....<br>
<b>end;</b><br>
<b>constructor</b> TPop3Client.Create(aOwner: T...);<br>
<b>begin</b><br>
<b>inherited</b> Create(aOwner);<br>
.....<br>
<b>end;</b><br>
......<br>
......<br>
<br>
// end of TPop3Client<br>
<b>var</b> kPop3 : TPop3Client;<br>
<b>procedure</b> CreatePop3CL(aOwner: T...);<b>stdcall</b><br>
<b>begin</b><br>
kPop3 := TPop3Client.Create(aOwner);<br>
<b>end;</b><br>
......<br>
<b>exports</b><br>
CreatePop3Cl;<br>
.....<br>
<b>begin</b><br>
<b>end.</b><br>
<br>
das ganze fuer Connect,Disconnect.... als function mit Boolean.<br>
Username,Password,MessageBody/Header,... als Zeiger auf einen Record.<br>
Rueckgabe von Meldungen und Infos(onStatus) sende ich mit<br>
SendMessage und WM_COPYDATA.<br>
Das Ganze geht sogar ziemlich gut.<br>
(Danke an Andreas Kosch und sein Buch Delhpi Win32 Loesungen<br>
-Dienste,Botschaften und DLL's)<br>
<b>Hat aber einer eine bessere Lösung?</b><br>
<br>
da ich die Komponeten nur bei gebrauch laden will<br>
<br>
Mit freundlichem Gruss<br>
Hendrik Leesch<br>