Einsteigerfragen zur PROFAN Programmierung

| Suchen
| Zurück zur Übersicht

Autor | Thema: INet Dll
Helmut Latz
| Datum:18.07.02 14:18 (latz.1@gmx.de) |
Hallo Ich habe zu Hause die INet.dll leider habe ich keine Include Datei dafür, vieleicht hat sie von euch noch jemand und kann sie mir schicken oder einfach sagen wo ich sie runter laden kann. Mfg Helmut
Schiewago
| Datum: 02.08.02 22:26 |
def indGetHTTP(5) !"INETDLL","GetHTTP" def indFTPTrans(7) !"INETDLL","FTPTrans" def indSMTPMail(6) !"INETDLL","SMTPMail" def indPing(1) !"INETDLL","Ping" def indTextToCommaText(1) !"INETDLL","TextToCommaText" def indGetCPUSpeed(0) !"INETDLL","GetCPUSpeed" declare indPnt1#,indPnt2#,indPnt3#,indPnt4#,indPnt5#,indPnt6#,dllhandle& proc HTTPDown 'function GetHTTP(URL, lokal, Proxy: PChar; ProxyPort, ShowWindow: Integer):Integer;StdCall; parameters indURL$,indLOKAL$,indPROXY$,indPROXYPORT%,indSHWND% declare indRESULT& dim indPnt1#,add(len(indURL$),1) dim indPnt2#,add(len(indLOKAL$),1) dim indPnt3#,add(len(indPROXY$),1) String indPnt1#,0=indURL$ String indPnt2#,0=indLOKAL$ String indPnt3#,0=indPROXY$ let indRESULT&=indGetHTTP(indPnt1#,indPnt2#,indPnt3#,indPROXYPORT%,indSHWND%) dispose indPnt1# dispose indPnt2# dispose indPnt3# FreeDLL dllhandle& return indRESULT& endproc proc FTPTransfer 'function FTPTrans(Server, rPfad, lPfad, User, PWD: PChar; UpDown, ShowWindow: Integer):Integer;StdCall; parameters indSERVER$,indRPFAD$,indLPFAD$,indUSER$,indPWD$,indDIRECTION&,indSHWND& declare indRESULT& dim indPnt1#,add(len(indSERVER$),1) dim indPnt2#,add(len(indRPFAD$),1) dim indPnt3#,add(len(indLPFAD$),1) dim indPnt4#,add(len(indUSER$),1) dim indPnt5#,add(len(indPWD$),1) String indPnt1#,0=indSERVER$ String indPnt2#,0=indRPFAD$ String indPnt3#,0=indLPFAD$ String indPnt4#,0=indUSER$ String indPnt5#,0=indPWD$ let indRESULT&=indFTPTrans(indPnt1#,indPnt2#,indPnt3#,indPnt4#,indPnt5#,indDIRECTION&,indSHWND&) dispose indPnt1# dispose indPnt2# dispose indPnt3# dispose indPnt4# dispose indPnt5# return indRESULT& endproc proc SendSmallMail 'function SMTPMail(Mail, Subject, Von, An, Server, Dateien: PChar):Integer;StdCall; parameters indMAIL$,indSUBJECT$,indVON$,indAN$,indSERVER$,indDATEIEN$ declare indRESULT& dim indPnt1#,add(len(indMAIL$),1) dim indPnt2#,add(len(indSUBJECT$),1) dim indPnt3#,add(len(indVON$),1) dim indPnt4#,add(len(indAN$),1) dim indPnt5#,add(len(indSERVER$),1) dim indPnt6#,add(len(indDATEIEN$),1) String indPnt1#,0=indMAIL$ String indPnt2#,0=indSUBJECT$ String indPnt3#,0=indVON$ String indPnt4#,0=indAN$ String indPnt5#,0=indSERVER$ String indPnt6#,0=indDATEIEN$ let indRESULT&=indSMTPMail(indPnt1#,indPnt2#,indPnt3#,indPnt4#,indPnt5#,indPnt6#) dispose indPnt1# dispose indPnt2# dispose indPnt3# dispose indPnt4# dispose indPnt5# dispose indPnt6# return indRESULT& endproc proc SendLargeMail 'function SMTPMail(Mail, Subject, Von, An, Server, Dateien: PChar):Integer;StdCall; parameters indMAIL&,indSUBJECT$,indVON$,indAN$,indSERVER$,indDATEIEN$ declare indRESULT& dim indPnt2#,add(len(indSUBJECT$),1) dim indPnt3#,add(len(indVON$),1) dim indPnt4#,add(len(indAN$),1) dim indPnt5#,add(len(indSERVER$),1) dim indPnt6#,add(len(indDATEIEN$),1) String indPnt2#,0=indSUBJECT$ String indPnt3#,0=indVON$ String indPnt4#,0=indAN$ String indPnt5#,0=indSERVER$ String indPnt6#,0=indDATEIEN$ let indRESULT&=indSMTPMail(indMail&,indPnt2#,indPnt3#,indPnt4#,indPnt5#,indPnt6#) dispose indPnt2# dispose indPnt3# dispose indPnt4# dispose indPnt5# dispose indPnt6# return indRESULT& endproc proc Ping 'function Ping(Host: PChar):Integer;StdCall; parameters indHOST$ declare indRESULT& dim indPnt1#,add(len(indHOST$),1) String indPnt1#,0=indHOST$ let indRESULT&=indPing(indPnt1#) dispose indPnt1# return indRESULT& endproc proc TextToCommaText 'function TextToCommaText(Text: PChar):Integer;StdCall; parameters indText$ dim indPnt1#,512 ' Bitte nicht so sparsam, sonst knallts! String indPnt1#,0=indText$ indTextToCommaText(indPnt1#) let indText$=String$(indPnt1#,0) dispose indPnt1# return indText$ endproc proc GetCPUSpeed 'function GetCPUSpeed: Integer;StdCall; return indGetCPUSpeed() endproc proc Download 'Nur aus Kompatibilitätsgründen vorhanden parameters Server$,lokal$,proxy$,proxyport&,window& HTTPDown Server$,lokal$,proxy$,proxyport&,window& return &(0) endproc

| Zurück zur Übersicht

| Ein kostenloses WebMart Forum WebMart Homepage Tools kostenlos |