4 respuestas en este tema

[look]

Hola amigos, tengo este codigo en visual basic, este utiliza una funcion de una dll, me gustaria traducir esto a delphi.
¿Me hechan una mano?

delphi

Imports FUN_HNv2_1
 
Public Class FUN_HN
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objeto = New FUN_HNv2_1.FUN_HNv2_1
 
        Dim respuesta = objeto.enviar(T1.Text, M1.Text, R1.Text)
 
        MessageBox.Show(respuesta)
    End Sub
End Class

[jdepaz]

Hola buen día,

Saludos a todos.

Bueno, si es una DLL a la cual se realizan llamados a funciones, entonces podrias comenzar en conocer cuales son esas funciones y así mismo sus parámetros y el valor de retorno.

Luego vendría la forma de llamar a las funciones desde Delphi, al cual creo que en la red hay muchos ejemplos.

Hasta pronto.

[Delphius]

Hola jdepaz, eso no me parece Visual Basic. Eso en todo caso es Visual Basic .NET en alguna versión más reciente.
No son lo mismo.
Y de lo poco que recuerdo de .NET y viendo ese código no vislumbro en que momento se está haciendo uso de la dll que comentas.

El código, en delphi, vendría a ser algo como esto:

delphi

procedure NombreMetodo(Sender: TObject; E: EventArgs);

El asunto es que no entiendo que tipo es realmente EventArgs que posee VB.NET. Lo otro que me llama la atención es lo que está al final de cada método: Handles xxx. Allí ya no se que hace eso en realidad.

Cuando vi :NET v1 no recuerdo que se coloca algo como al final de cada método.

Encuentro más rarezas de ese código, en el método Button1_Click hay código escrito. ¿Porqué los anteriores no tienen nada? Dicho código consiste en crear una instancia de la clase FUN_HNv2_1. Luego se dispara el mensaje Enviar() y se muestra en pantalla una respuesta. Pregunto: ¿Donde está la declaración del método Enviar?
Aparentemente se está definiendo una clase pero repasando la vista... lo que has expuesto la verdad es que no dice mucho. Faltan demasiadas cosas se me hace.

Así la tienes difícil que te podamos ayudar. Va a ser necesario conocer la dll como el código completo. A medias no funciona.

Saludos,

[jdepaz]

Hola a todos,

Delphius dijo:

El asunto es que no entiendo que tipo es realmente EventArgs que posee VB.NET. Lo otro que me llama la atención es lo que está al final de cada método: Handles xxx. Allí ya no se que hace eso en realidad.

EventArgs hace parte o es el valor del "Evento"que lo invoca (load, click, etc) y con respecto al "Handles" viene siendo como un "amarre" por decirlo así de forma "artesanal" entre el método y el componente.

hasta luego.

[cram]

delphi

Imports FUN_HNv2_1
Public Class FUN_HN
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objeto = New FUN_HNv2_1.FUN_HNv2_1
        Dim respuesta = objeto.enviar(T1.Text, M1.Text, R1.Text)
        MessageBox.Show(respuesta)
    End Sub
End Class

delphi

Uses FUN_HNv2_1;
FUN_HN = Class(TWinControl) // TWinControl es la base para los controles que reciben eventos de teclado, ratón son representados visualmente, etc.
  procedure Form1_Load(Sender: TObject);
...
  end;

pero según lo que se ve los procedimientos son llamados por un evento explícito.

delphi

  procedure Form1_Load(var Message: TMessage; TWMNCLButtonDown); message WM_NCLBUTTONDOWN;

Deberías ver cuales son los mensajes WM_ para cada evento que necesites.

Dim se utiliza para declara una variable. En este caso también se crea un objeto y se asigna a la variable, (en un mal intento de imitar a C).

Falta mucho para entender esto. Falta conocer cual es la unidad (o como se llame en VB) para entender que hace aproximadamente ese pedazo de código.

Por otra parte ByVal inidica que se pasa el parámetro por valor y no por referencia, en Pascal sería no escribir y lo contrario sería escribir val. As System.Object es un casting, que en Pascal se expresa con paréntesis (y creo que la versión .NET usa el As).

Te recomiendo consultar con alguien que entienda Visual Basic, más que alguien que entienda Pascal, ya que una vez que sepas que hace, podrás escribir el código que deseas.

Saludos.