Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-06-2004
Avatar de torito
torito torito is offline
Miembro
 
Registrado: jun 2003
Ubicación: Querétaro, Mex.
Posts: 349
Poder: 21
torito Va por buen camino
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

Última edición por torito fecha: 01-06-2004 a las 20:35:21.
Responder Con Cita
  #2  
Antiguo 02-06-2004
Avatar de torito
torito torito is offline
Miembro
 
Registrado: jun 2003
Ubicación: Querétaro, Mex.
Posts: 349
Poder: 21
torito Va por buen camino
o alguien me pudiera decir si arguments lo pudiera tomar como un objetos Tstrings???
Código Delphi [-]
gracias

Última edición por torito fecha: 03-06-2004 a las 02:10:37.
Responder Con Cita
  #3  
Antiguo 03-06-2004
Avatar de torito
torito torito is offline
Miembro
 
Registrado: jun 2003
Ubicación: Querétaro, Mex.
Posts: 349
Poder: 21
torito Va por buen camino
ya lo solucione, solo tuve que trabajar con mismo objetos.... preo de todas formas muchas gracias a los que me leyeron... saludos amigos foreros
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 05:55:48.


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
Copyright 1996-2007 Club Delphi