Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Otra de Visual Basic a Delphi. (https://www.clubdelphi.com/foros/showthread.php?t=10930)

torito 01-06-2004 20:19:52

Otra de Visual Basic a Delphi.
 
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

torito 02-06-2004 17:00:11

o alguien me pudiera decir si arguments lo pudiera tomar como un objetos Tstrings???
Código Delphi [-]
gracias

torito 03-06-2004 22:11:35

ya lo solucione, solo tuve que trabajar con mismo objetos.... preo de todas formas muchas gracias a los que me leyeron... saludos amigos foreros


La franja horaria es GMT +2. Ahora son las 12:24:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi