Como paso un Tstring a String

Antuan · #1 11-08-2005

Lo siento mucho pero es tal el cacao que tengo que me he equivocado de funcion.
Es esta:

Código Delphi [-] function getIPs: Tstrings;
 type
   TaPInAddr = array[0..10] of PInAddr;
   PaPInAddr = ^TaPInAddr;
 var
   phe: PHostEnt;
   pptr: PaPInAddr;
   Buffer: array[0..63] of Char;
   I: Integer;
   GInitData: TWSAData;
 begin
   WSAStartup($101, GInitData);
   Result := TstringList.Create;
   Result.Clear;
   GetHostName(Buffer, SizeOf(Buffer));
   phe := GetHostByName(buffer);
   if phe = nil then Exit;
   pPtr := PaPInAddr(phe^.h_addr_list);
   I    := 0;
   while pPtr^[i] <> nil do
   begin
     Result.Add(inet_ntoa(pptr^[i]^));
     Inc(I);
   end;
   WSACleanup;
 end;

Y es resultado de esta funcion es el que lo quiero pasar a una variable de String
Y supongo que seria asi:

Código Delphi [-]  function Operaciones : string;
    var
      temp: TStrings;
    begin
      Result := 'GetIPs';
      temp := TStringList.Create;
      try
        { Resto de instrucciones }
        Result := temp.Text;
      finally
        temp.Free;
      end;
    end;`

Y la variable de String seria Operaciones???????
Es asi verdad??????
Perdonar por haber cometido tan gran error.
Y muchas gracias por vuestra ayuda.

dec · #2 11-08-2005

Hola,

Cita:

Empezado por Antuan

Perdonar por haber cometido tan gran error.

Nada, hombre, qué dices, no hay nada que perdonar

Por otro lado con la función que escribes últimamente hay un pequeño problema para hacer que esta pase a devolver una cadena, o sea, una variable de tipo "string". ¿Porqué? Pues porque por algo devuelve el tipo que devuelve: la función se llama "GetIps" y puede devolver varias IPs, no solamente una.

Claro está, sería más sencillo de "recorrer" el resultado de la función para obtener cada una de las IPs devuelta, o una, si ese fuera el caso. Desconozco cómo hace lo que hace la función y si, por ejemplo, siempre devuelve una primera IP, digamos, principal, por defecto, acaso la que se persigue... de no ser así... devolver el resultado como "string" podría ocasionarte quebraderos de cabeza, puesto que la variable "resultado" podría contener más de una IP... y habría a partir de ahí que discriminarlas.

En todo caso, así quedaría la función devolviendo una cadena, un tipo "string", en lugar de un "TStrings":

Código Delphi [-]   function getIPs: string;
  type
    TaPInAddr = array[0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
  var
    phe: PHostEnt;
    pptr: PaPInAddr;
    Buffer: array[0..63] of Char;
    I: Integer;
    GInitData: TWSAData;
    temp: TStrings;
  begin
    Result := '';
    WSAStartup($101, GInitData);
    temp := TstringList.Create;
    temp.Clear;
    GetHostName(Buffer, SizeOf(Buffer));
    phe := GetHostByName(buffer);
    if phe = nil then Exit;
    pPtr := PaPInAddr(phe^.h_addr_list);
    I    := 0;
    try
      while pPtr^[i] <> nil do
      begin
        temp.Add(inet_ntoa(pptr^[i]^));
        Inc(I);
      end;
      Result := temp.Text;
    finally
      temp.Free;
    end;
    WSACleanup;
  end;

Se me ocurre a bote pronto, que, si no se encuentra otra forma mejor de hacerlo, tal vez podría cambiarse la siguiente instrucción a algo parecido a:

Código Delphi [-]  if temp.Count > 0 then
    temp.Add(' $$ ' + inet_ntoa(pptr^[i]^))
  else
    temp.Add(inet_ntoa(pptr^[i]^));

De ese modo, en la cadena que obtuvieras como resultado, caso de haber más de una dirección IP obtendrías algo así como resultado:

Código:

  123.45.32.45 $$ 234.42.23.12

Acaso esos signos "dólar" pudieran servirte luego para averiguar, primero, si hay más de una IP en la cadena "resultado" y, en ese caso, conseguir todas las que hubiera, con ayuda de funciones como "Pos" y "Copy", por ejemplo.

dec · #3 11-08-2005

Hola,

Metí un tanto la pata... puesto que, si ya no se piensa devolver un tipo "TStrings" con la función, ¿a qué utilizarlo entonces, pudiendo utilizar directamente una cadena? Así tal cual:

Código Delphi [-]  function getIPs: string;
 type
   TaPInAddr = array[0..10] of PInAddr;
   PaPInAddr = ^TaPInAddr;
 var
   phe: PHostEnt;
   pptr: PaPInAddr;
   Buffer: array[0..63] of Char;
   I: Integer;
   GInitData: TWSAData;
 begin
   Result := '';
   WSAStartup($101, GInitData);
   GetHostName(Buffer, SizeOf(Buffer));
   phe := GetHostByName(buffer);
   if phe = nil then Exit;
   pPtr := PaPInAddr(phe^.h_addr_list);
   I    := 0;
   while pPtr^[i] <> nil do
   begin
     if Result = '' then
       Result := (inet_ntoa(pptr^[i]^))
     else
       Result := ' $$ ' + (inet_ntoa(pptr^[i]^);     
     Inc(I);
   end;
   WSACleanup;
 end;

Eso que nos ahorramos, ¿no te parece?

Antuan · #4 11-08-2005

Esta que te pongo es la que sirve:

Código Delphi [-]function getIPs: Tstrings;
 type
   TaPInAddr = array[0..10] of PInAddr;
   PaPInAddr = ^TaPInAddr;
 var
   phe: PHostEnt;
   pptr: PaPInAddr;
   Buffer: array[0..63] of Char;
   I: Integer;
   GInitData: TWSAData;
 begin
   WSAStartup($101, GInitData);
   Result := TstringList.Create;
   Result.Clear;
   GetHostName(Buffer, SizeOf(Buffer));
   phe := GetHostByName(buffer);
   if phe = nil then Exit;
   pPtr := PaPInAddr(phe^.h_addr_list);
   I    := 0;
   while pPtr^[i] <> nil do
   begin
     Result.Add(inet_ntoa(pptr^[i]^));
     Inc(I);
   end;
   WSACleanup;
 end;

De momento me devuelve una ip solo
Muchas gracias por cambiarme la funcion.
Tengo varias de este tipo y las tendre que cambiar.
Ya he cogido la forma de trabajar con el TString que es para variables de matriz por eso se representa en un TMemo o en un TList.
De ahi el haberte mandado ayer un correo con esta misma funcion para si podias hacerme un pequeño ejemplo del objeto rectangulo.
Con esta misma funcion original que el resultado lo da en un TMemo.
David muchas gracias y perdona por hacerte perder un poco el tiempo.

Casimiro Notevi · #5 11-08-2005

dec · #6 11-08-2005

Hola,

Cita:

Empezado por Casimiro Notevi

Creo que Casimiro se sorprende porque sigues utilizando una función que devuelve un "TStrings" como una catedral

Cita:

Empezado por Antuan

De ahi el haberte mandado ayer un correo con esta misma funcion para si podias hacerme un pequeño ejemplo del objeto rectangulo.

Otra vez no entenderán de qué hablamos, pero, en todo caso, creo que lo importante es que... ¡¿No te llegó el correo que te envié ayer noche!? En él llevaba a cabo justo lo que me pedías, junto con algunas aclaraciones y notas al respecto.

* Nota para todos: Un "objeto rectángulo" es un "objeto" de cierto programa de nombre Neobook que permite que puedan añadírsele "plugins", por ejemplo, programados con Delphi. En dicho objeto rectángulo el programador del "plugin" tiene la posibilidad de "añadir" un determinado componente "visual" de Delphi, por ejemplo un "TMemo". Básicamente es esto.

Casimiro Notevi · #7 11-08-2005

Cita:

Empezado por dec

Creo que Casimiro se sorprende porque sigues utilizando una función que devuelve un "TStrings" como una catedral

Efectivamente, es como si una función tiene que devolver un string y hago que devuelva un entero, y luego convertir ese entero a string, sin motivo, necesidad ni falta que hace.

Pero, bueno, allá cada uno con sus manías