Autor | Thema: INet Dll | | 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
|
| | 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
|
|
|