<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2838" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Para Windows puedes utilizar esto:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>function ComputerName: string;<BR>var<BR>  
AComputerName: string;<BR>  Size: Cardinal;<BR>begin<BR>  Size := 
15;<BR>  SetLength(AComputerName, Size);<BR>  
FillChar(PChar(AComputerName)^, 15, 0);<BR>  if 
GetComputerName(PAnsiChar(AComputerName), Size) then<BR>    
Result := Trim(AComputerName);<BR>end;<BR></FONT></DIV>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A title=ismael@citricos.co.cu href="mailto:ismael@citricos.co.cu">Ismael L. 
  Donis García</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A 
  title=lazarus-es@lists.lazarus.freepascal.org 
  href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of 
  Lazarus List</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, November 24, 2009 12:37 
  PM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Más dudas</DIV>
  <DIV><BR></DIV>
  <DIV><FONT face=Arial>No por nada. Eso le pasa a todos, incluso en más de una 
  ocasión.</FONT></DIV>
  <DIV><FONT face=Arial></FONT> </DIV>
  <DIV><FONT face=Arial>Por casualidad nadie sabe como obtener el nombre de la 
  PC.</FONT></DIV>
  <DIV><FONT face=Arial></FONT> </DIV>
  <DIV><FONT face=Arial>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.</FONT></DIV>
  <DIV><FONT face=Arial></FONT> </DIV>
  <DIV><FONT face=Arial>Eso se hace para un mayor control de las operaciones, no 
  es un capricho mió sino que me lo exigen.</FONT></DIV>
  <DIV><FONT face=Arial></FONT> </DIV>
  <DIV><FONT face=Arial>Lo más difícil es que quiero que funcione en Linux y 
  Windows.</FONT></DIV>
  <DIV><FONT face=Arial></FONT> </DIV>
  <DIV><FONT face=Arial>GRACIAS Reiteradas</FONT></DIV>
  <DIV>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR><FONT face=Arial>PD: No tengo 
  acceso a Internet</FONT></DIV>
  <DIV><FONT face=Arial></FONT> </DIV>
  <DIV>----- Mensaje original ----- </DIV>
  <BLOCKQUOTE 
  style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
    <DIV 
    style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>De:</B> 
    <A title=fredyg1965@gmail.com href="mailto:fredyg1965@gmail.com">Fredy 
    Gonzales</A> </DIV>
    <DIV style="FONT: 10pt arial"><B>Para:</B> <A 
    title=lazarus-es@lists.lazarus.freepascal.org 
    href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of 
    Lazarus List</A> </DIV>
    <DIV style="FONT: 10pt arial"><B>Enviado:</B> martes, 24 de noviembre de 
    2009 01:26</DIV>
    <DIV style="FONT: 10pt arial"><B>Asunto:</B> Re: [Lazarus-es] Más 
dudas</DIV>
    <DIV><FONT face=Arial></FONT><FONT face=Arial></FONT><BR></DIV>
    <DIV><FONT face=Arial size=2>Jaja, disculpa, a veces no leo ni las letras 
    chiquitas de los documentos de los bancos.</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>Ok para otra sera.</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>FG</FONT></DIV>
    <BLOCKQUOTE 
    style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
      <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
      <DIV 
      style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
      <A title=ismael@citricos.co.cu href="mailto:ismael@citricos.co.cu">Ismael 
      L. Donis García</A> </DIV>
      <DIV style="FONT: 10pt arial"><B>To:</B> <A 
      title=lazarus-es@lists.lazarus.freepascal.org 
      href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of 
      Lazarus List</A> </DIV>
      <DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, November 24, 2009 2:46 
      PM</DIV>
      <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Más 
      dudas</DIV>
      <DIV><FONT face=Arial></FONT><FONT face=Arial></FONT><BR></DIV>
      <DIV><FONT face=Arial>No leíste debajo de la firma.</FONT></DIV>
      <DIV><FONT face=Arial></FONT> </DIV>
      <DIV><FONT face=Arial>Gracias de todos modos.</FONT></DIV>
      <DIV>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR><FONT face=Arial>PD: No 
      tengo acceso a Internet</FONT></DIV>
      <DIV> </DIV>
      <DIV>----- Mensaje original ----- </DIV>
      <BLOCKQUOTE 
      style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
        <DIV 
        style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>De:</B> 
        <A title=fredyg1965@gmail.com href="mailto:fredyg1965@gmail.com">Fredy 
        Gonzales</A> </DIV>
        <DIV style="FONT: 10pt arial"><B>Para:</B> <A 
        title=lazarus-es@lists.lazarus.freepascal.org 
        href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of 
        Lazarus List</A> </DIV>
        <DIV style="FONT: 10pt arial"><B>Enviado:</B> martes, 24 de noviembre de 
        2009 08:50</DIV>
        <DIV style="FONT: 10pt arial"><B>Asunto:</B> Re: [Lazarus-es] Más 
        dudas</DIV>
        <DIV><BR></DIV>
        <DIV><FONT face=Arial size=2>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.</FONT></DIV>
        <DIV><FONT face=Arial size=2></FONT> </DIV>
        <DIV><A 
        href="http://sites.google.com/site/silvioprogbs/downloads">http://sites.google.com/site/silvioprogbs/downloads</A></DIV>
        <DIV><FONT face=Arial size=2></FONT> </DIV>
        <DIV><FONT face=Arial size=2>Saludos.</FONT></DIV>
        <DIV><FONT face=Arial size=2></FONT> </DIV>
        <DIV><FONT face=Arial size=2>FG</FONT></DIV>
        <BLOCKQUOTE 
        style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
          <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
          <DIV 
          style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
          <A title=ismael@citricos.co.cu 
          href="mailto:ismael@citricos.co.cu">Ismael L. Donis García</A> </DIV>
          <DIV style="FONT: 10pt arial"><B>To:</B> <A 
          title=lazarus-es@lists.lazarus.freepascal.org 
          href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version 
          of Lazarus List</A> </DIV>
          <DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, November 24, 2009 
          10:15 AM</DIV>
          <DIV style="FONT: 10pt arial"><B>Subject:</B> [Lazarus-es] Más 
          dudas</DIV>
          <DIV><BR></DIV>
          <DIV><FONT face=Arial>Disculpen tantas preguntas, pero como estoy 
          comenzando en este lenguajes mis dudas son las que se 
          sobran.</FONT></DIV>
          <DIV><FONT face=Arial></FONT> </DIV>
          <DIV><FONT face=Arial>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:</FONT></DIV>
          <DIV><FONT face=Arial></FONT> </DIV>
          <DIV><FONT face=Arial>conexión.Execute 
          "nombre_del_procedimiento('parametros',....)", , 
          adCmdStoredProc</FONT></DIV>
          <DIV><FONT face=Arial></FONT> </DIV>
          <DIV><FONT face=Arial>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.</FONT></DIV>
          <DIV><FONT face=Arial></FONT> </DIV>
          <DIV><FONT face=Arial>GRACIAS</FONT></DIV>
          <DIV><FONT face=Arial>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR>PD: No 
          tengo acceso a Internet</FONT></DIV>
          <P>
          <HR>

          <P></P>_______________________________________________<BR>Lazarus-es 
          mailing 
          list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE>
        <P>
        <HR>

        <P></P>_______________________________________________<BR>Lazarus-es 
        mailing 
        list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE>
      <P>
      <HR>

      <P></P>_______________________________________________<BR>Lazarus-es 
      mailing 
      list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE>
    <P>
    <HR>

    <P></P>_______________________________________________<BR>Lazarus-es mailing 
    list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE><BR><BR>__________ 
  Information from ESET NOD32 Antivirus, version of virus signature database 
  4634 (20091124) __________<BR><BR>The message was checked by ESET NOD32 
  Antivirus.<BR><BR><A href="http://www.eset.com">http://www.eset.com</A><BR>
  <P>
  <HR>

  <P></P>_______________________________________________<BR>Lazarus-es mailing 
  list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR><BR><BR><BR>__________ 
  Information from ESET NOD32 Antivirus, version of virus signature database 
  4634 (20091124) __________<BR><BR>The message was checked by ESET NOD32 
  Antivirus.<BR><BR>http://www.eset.com<BR><BR></BLOCKQUOTE></BODY></HTML>