Re: http or tcp/ip
- From: "Steve Lionel" <steve.lionel@xxxxxxxxx>
- Date: 17 Mar 2007 18:03:10 -0700
Ugh - the old Microsoft bracket syntax.. Ok, I see I made an
incorrect assumption. Try this:
INTERFACE ! to 4 WinInet API functions contained in WININET.DLL
INTEGER FUNCTION InternetOpen (sAgent, nAccessType, sProxy, sBypass,
nFlags)
!DEC$ ATTRIBUTES DEFAULT,STDCALL,DECORATE,ALIAS:"InternetOpenA" ::
InternetOpen
INTEGER :: nAccessType, nFlags
CHARACTER(*) :: sAgent, sProxy, sBypass
!DEC$ ATTRIBUTES REFERENCE :: sAgent, sProxy, sBypass
END FUNCTION
INTEGER FUNCTION InternetOpenUrl
(hInternet,sUrl,sHeaders,nHeadersLength,nFlags,nContext)
!DEC$ ATTRIBUTES
DEFAULT,STDCALL,DECORATE,ALIAS:"InternetOpenurlA" :: InternetOpenurl
INTEGER :: hInternet, nHeadersLength, nFlags, nContext
CHARACTER(*) :: sUrl, sHeaders
!DEC$ ATTRIBUTES REFERENCE :: surl, sHeaders
END FUNCTION
INTEGER FUNCTION InternetReadFile (hFile, sBuffer, nBytesToRead,
nBytesRead)
!DEC$ ATTRIBUTES
DEFAULT,STDCALL,DECORATE,ALIAS:"InternetReadFile" :: InternetReadFile
INTEGER :: hFile, nBytesToRead, nBytesRead
!DEC$ ATTRIBUTES REFERENCE :: nBytesRead
CHARACTER(*) :: sBuffer
!DEC$ ATTRIBUTES REFERENCE :: sBuffer
END FUNCTION
INTEGER FUNCTION InternetCloseHandle (hInet)
!DEC$ ATTRIBUTES
DEFAULT,STDCALL,DECORATE,ALIAS:"InternetCloseHandle" ::
InternetCloseHandle
INTEGER :: hInet
END FUNCTION
END INTERFACE
I took out the interface to NARGS - you don't need this in CVF and it
will cause problems in IVF.
Steve
.
- Follow-Ups:
- Re: http or tcp/ip
- From: David Frank
- Re: http or tcp/ip
- From: Gary Scott
- Re: http or tcp/ip
- References:
- http or tcp/ip
- From: allelopath
- Re: http or tcp/ip
- From: gary . l . scott
- Re: http or tcp/ip
- From: David Frank
- Re: http or tcp/ip
- From: Beliavsky
- Re: http or tcp/ip
- From: Steve Lionel
- Re: http or tcp/ip
- From: Gary Scott
- http or tcp/ip
- Prev by Date: Re: Gfortran 2 years behind G95 and still not ready for prime time
- Next by Date: Re: http or tcp/ip
- Previous by thread: Re: http or tcp/ip
- Next by thread: Re: http or tcp/ip
- Index(es):
Relevant Pages
|
