Hola amigos foreros, nuevamente yo peliandome con pasar programas a Delphi, me encuentro en la siguiente cuestión tengo este codigo en visual Basic, bueno es de esta función donde se toman los parametros para otra
Código:
Private Sub WebLink1_Request(ByVal arguments As Object, ByVal values As Object)
...strCMD = FindArgValue("cmd", arguments, values)... End Sub
Public Function FindArgValue(str As String, args As Object, ByVal values As Object) As String
'
' This function finds the specifed argument and its corresponding value.
'
FindArgValue = ""
Dim value As Integer
value = args.Find(str, 0)
If value > -1 Then
FindArgValue = values.Item(value)
End If
End Function
y yo en Delphi me encontre que cambia un poco:
Código:
procedure TForm1.WebLink1Request(ASender: TObject; const arguments,
values: IDispatch);
alguien me pudiera auxiliar para poder pasar esta funcion a delphi??
muchas gracias