[Lazarus-es] Más dudas

Juan Carlos juancarlos en cubalub.cupet.cu
Mie Nov 25 00:05:08 CET 2009


Para Windows puedes utilizar esto:

function ComputerName: string;
var
  AComputerName: string;
  Size: Cardinal;
begin
  Size := 15;
  SetLength(AComputerName, Size);
  FillChar(PChar(AComputerName)^, 15, 0);
  if GetComputerName(PAnsiChar(AComputerName), Size) then
    Result := Trim(AComputerName);
end;

  ----- Original Message ----- 
  From: Ismael L. Donis García 
  To: Spanish version of Lazarus List 
  Sent: Tuesday, November 24, 2009 12:37 PM
  Subject: Re: [Lazarus-es] Más dudas


  No por nada. Eso le pasa a todos, incluso en más de una ocasión.

  Por casualidad nadie sabe como obtener el nombre de la PC.

  Es que los sistemas deben guardar en un registro de incidencias las operaciones realizadas por los clientes y dentro de los datos a guardar está el nombre de la PC desde donde se originó la operación.

  Eso se hace para un mayor control de las operaciones, no es un capricho mió sino que me lo exigen.

  Lo más difícil es que quiero que funcione en Linux y Windows.

  GRACIAS Reiteradas
  =========
  ¦¦ ISMAEL ¦¦
  =========
  PD: No tengo acceso a Internet

  ----- Mensaje original ----- 
    De: Fredy Gonzales 
    Para: Spanish version of Lazarus List 
    Enviado: martes, 24 de noviembre de 2009 01:26
    Asunto: Re: [Lazarus-es] Más dudas


    Jaja, disculpa, a veces no leo ni las letras chiquitas de los documentos de los bancos.

    Ok para otra sera.

    FG
      ----- Original Message ----- 
      From: Ismael L. Donis García 
      To: Spanish version of Lazarus List 
      Sent: Tuesday, November 24, 2009 2:46 PM
      Subject: Re: [Lazarus-es] Más dudas


      No leíste debajo de la firma.

      Gracias de todos modos.
      =========
      ¦¦ ISMAEL ¦¦
      =========
      PD: No tengo acceso a Internet

      ----- Mensaje original ----- 
        De: Fredy Gonzales 
        Para: Spanish version of Lazarus List 
        Enviado: martes, 24 de noviembre de 2009 08:50
        Asunto: Re: [Lazarus-es] Más dudas


        Te recomiendo que visites la pagina de silivo clecio, el tiene muchos ejemplos de Zeos con Firebird y parece que tiene algo de lo que buscas.

        http://sites.google.com/site/silvioprogbs/downloads

        Saludos.

        FG
          ----- Original Message ----- 
          From: Ismael L. Donis García 
          To: Spanish version of Lazarus List 
          Sent: Tuesday, November 24, 2009 10:15 AM
          Subject: [Lazarus-es] Más dudas


          Disculpen tantas preguntas, pero como estoy comenzando en este lenguajes mis dudas son las que se sobran.

          1.- Como ejecutar procedimientos almacenados de select, insert y update con firebird? Digo de los 3 porque no se si se ejecutan de diferentes formas, en VB se ejecutan de una sola forma:

          conexión.Execute "nombre_del_procedimiento('parametros',....)", , adCmdStoredProc

          2.- Como optener en nombre de la Pc cliente tanto en windows como linux? Puede ser a traves de un componente que ya tenga esa función o atraves de una función específica.

          GRACIAS
          =========
          ¦¦ ISMAEL ¦¦
          =========
          PD: No tengo acceso a Internet


----------------------------------------------------------------------


          _______________________________________________
          Lazarus-es mailing list
          Lazarus-es en lists.lazarus.freepascal.org
          http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es



------------------------------------------------------------------------


        _______________________________________________
        Lazarus-es mailing list
        Lazarus-es en lists.lazarus.freepascal.org
        http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es



--------------------------------------------------------------------------


      _______________________________________________
      Lazarus-es mailing list
      Lazarus-es en lists.lazarus.freepascal.org
      http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es



----------------------------------------------------------------------------


    _______________________________________________
    Lazarus-es mailing list
    Lazarus-es en lists.lazarus.freepascal.org
    http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es



  __________ Information from ESET NOD32 Antivirus, version of virus signature database 4634 (20091124) __________

  The message was checked by ESET NOD32 Antivirus.

  http://www.eset.com



------------------------------------------------------------------------------


  _______________________________________________
  Lazarus-es mailing list
  Lazarus-es en lists.lazarus.freepascal.org
  http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es



  __________ Information from ESET NOD32 Antivirus, version of virus signature database 4634 (20091124) __________

  The message was checked by ESET NOD32 Antivirus.

  http://www.eset.com

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20091124/9dae47a7/attachment-0002.html>


More information about the Lazarus-es mailing list