Unit Gnetmail |
GNETMAIL- Internet Mail Component for Delphi Copyright (©) 1997 Tony BenBrahim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the: Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. {history 1.3.1 Oct-28 -fixed Linux bug for good. -made Read function protected from messages dispatched during yields.can now step through code while receiving mail! 1.3.2 Oct-31 -changed declaration for OnAttachmentName now returns all attachment MIME headers in a TMIME attachment structure. Users fills in Location field when event is received. -added ProcessMimeHeaders function to handle attachments recursively, so that nested attachments can be handled correctly. -now correctly reports Info of gmNumberMessage -now correctly handles pre-MIME messages (was fooled if a blank line occured in the pre-MIME messages. 1.3.4 Jan 13 -added UIDL property -added TUIDLManager object 1.3.5 Jan 17 -added QuitAsap method (if before message retrieval, quits right away, other wise waits for current message to finish) -made Available event occur after disconnect. 1.3.6 Jan 20 -TUILDManager object deleted, UIDL function now integrated in component. 1.3.7 Jan 21 -Deleted obsolete gmXxxx. gmAvailable is now always last notification in transaction. 1.3.8 Jan 26 -Fixed bug with boundary (forgot to change to MIMEBoundary[]) 1.3.9 Feb 14 -fixed bug with boundary split header. -keep duplicate messages from being added to DiffUIDL. 1.3.10 March 2 -Delphi 2.0 compatible version! 1.3.11 March 6 -added Msg_ID property. 1.3.12 April 20 -fixed step 6 bug with 0 length strings. 1.3.13 May 12 -added timeout function -added decoding of RFC1522 headers. -reaaranged error handling.
Classes |
GetMail -
TUIDLManager -
Functions |
Types |
GetMailError
GetMailInfo
MIME_Encoding
TAttachmentEvent
TGetHeadersEvent
TGetMailAction
TGetMailErrorEvent
TGetMailInfoEvent
TGetMessageEvent
TGMDataEvent
TMIMEAttachmentPtr
TNewLineProc
Constants |
Variables |
Functions |
Types |
GetMailError=(gmNone,gmWInsockNotInitialized,gmNetworkDown,gmInvalidAddress,gmInternalError, gmGeneralWinsockError,gmConnAborted,gmConnReset,gmConnectTimeOut, gmOutofSockets,gmNetworkUnreachable,gmAddressNotAvailable, gmConnectionRefused,gmProtocolError,gmCanceled,gmUnknown, gmAddressResolutionError,gmPrematureDisconnect, gmHostUnreachable,gmAccessDenied);
GetMailInfo=(gmServerConnected,gmServerDisconnected, gmNumberMessage,gmMessageSize,gmGettingMessage,gmTraceIn, gmTraceOut,gmUIDLList,gmUIDLSupport,gmAlreadyBusy, gmAccessGranted,gmLogin,gmResolvingAddress,gmAddressResolved);
MIME_Encoding=(plain,Base64,QuotedPrintable);
TAttachmentEvent= procedure (Sender:TObject;Attachment: TMIMEAttachmentPtr)of object
TGetHeadersEvent= procedure (Sender:TObject)of object
TGetMailAction=(None,Get_Mail,Cancel_GetMail);
TGetMailErrorEvent = procedure (Sender : TObject; error: GetMailError; addinfo: string) of object
TGetMailInfoEvent = procedure (Sender : TObject; info: GetMailInfo; addinfo: string) of object
TGetMessageEvent= procedure (Sender:TObject) of object
TGMDataEvent=procedure (Sender: TObject; data: string) of object
TMIMEAttachmentPtr=^TMIMEAttachment
TNewLineProc=procedure(line:string) of object
Constants |
Variables |