Announcement

Collapse
No announcement yet.

DLL und Indy(WinShoes) Komponenten

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • DLL und Indy(WinShoes) Komponenten

    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>
Working...
X