FiveTech Support Forums

Dim des As String * 15000
Dim paginahtml As String * 4096
Dim ret As Long
Dim edi As string
Dim nif As String
Dim wadedinet As New OAdedinet

ret = wadedinet.Adedinet(nif, edi, des, paginahtml)

local des := space(15000)
local paginahtml := space(4096)
local edi := ""
local nif := ""
local wadedinet := CreateObject( "OAdedinet" )
local ret := OAdedinet:wadedinet(nif, edi, des, paginahtml)

// la dll se registra en el sistema, desde la consola, como: regsvr32 adedinet.dll -> devuelve OK

static function pruebasedi()
local des := space(15000)
local paginahtml := space(4096)
local edi := MEMOREAD( "E:\edi.exp" )   // => el archivo existe
local nif := "9999999R"

// ---------------- EDITO ---------------------
local wadedinet := CreateObject( "ADEDINET.OAdedinet" ) //=> aparentemente funciona bien
local ret := wadedinet:ADEDINET(nif, edi, @des, @paginahtml) // => aparentemente funciona bien pero... devuelve archivos vacios
//---------------------------------------------

msginfo( des)  // => devuelve vacio
msginfo(paginahtml) // =>  devuelve vacio
return .t.