Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: INet Dll
Helmut Latz
Datum:18.07.02 14:18 Antwortenals Email verschicken (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 Antwortenals Email verschicken  


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
doteu.info: Don´t miss your .eu-Domain