Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/10/2005, 09:35
Avatar de julioszabo
julioszabo
 
Fecha de Ingreso: octubre-2004
Mensajes: 47
Antigüedad: 19 años, 6 meses
Puntos: 0
Pregunta Transaformar un Objeto VB 6.0 a VB.Net

Les cuento bien lo que tengo a ver si me pueden ayudar:

Dll en Vb 6.0
Public Function DownloadFile(ByVal pPathToDownload As String) As Object
Dim objStm As Object 'As ADODB.Stream

Set objStm = CreateObject("ADODB.Stream") 'New ADODB.Stream
objStm.Mode = 3 'adModeReadWrite
objStm.Type = 1 'adTypeBinary
objStm.Open
objStm.LoadFromFile (pPathToDownload)
objStm.Position = 0

Set DownloadFile = objStm.Read

End Function

Metodo que invoca la dll en .Net

Dim objDllVb60 As Object
Dim objFileBinary As Object
objDllVb60 = CreateObject("DllVb60.Engine")
objFileBinary = objDllVb60.DownloadFile("C:\Temp\File.doc")

Y aca me trabo, porque el formato que me devuelve la dll, no es compatible con el formato que maneja .Net, tampoco se bien que es lo que tengo que devolver en la dll, si el objeto Stream, o lo que me devuelve el metodo Read, como lo expuse aca, de ninguna de las dos formas he podido hacer nada.
Lo que tengo aca en objFileBinary, es un objeto de tipo Array, yo a esto lo necesito en un formato de tipo System.IO.FileStream.

Bueno, espero me puedan ayudar, ya que esto me tiene loco.

Un abrazo a todos, Julio.