7 respuestas en este tema

[JandoK]

Bunos dias...

La idea es dar al usuario la oportunidad de que seleccione de una lista, el puerto a donde
se va a mandar a imprimir un TICKET de algun pedido...

Actualmente imprimo un ticket directamente al puerto LPT1, mediante el codigo :

delphi

procedure FrmPrincipal.ImprimirTicket;
var
  Ticket : TextFile;
begin
  AssignFile(Ticket, 'LPT1');
  Rewrite(Ticket);
  mensajeticket := dmDatos.ztblCONFIGURACIONNOMBRE.AsString;
  Writeln(Ticket, mensajeticket);
  //mas lineas del ticket
  CloseFile(Ticket);
end;

pero, si la impresora se cambia de puerto ??  o si es  USB ??

entonces me gustaria poner en una lista las posibles
opciones para imprimir

  LPT1
  Com1
  Com2
  ...


es posible ??

gracias 

salu2!!!!!!!

[egostar]

Hola

Con este código obtengo los puertos seriales, no se donde lo consegui, pero me sirve muy bien, tal vez te de una idea.

delphi

  { Obtiene Puertos Seriales disponibles}
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false) then
    begin
      Reg.GetValueNames(ComboBox1.Items);
      for I := 0 to ComboBox1.Items.Count - 1 do
          ComboBox1.Items[i] := Reg.ReadString(ComboBox1.Items[i]);
    end;
    ComboBox1.Sorted := true;
  finally
    Reg.Free;
  end;

Salud OS

[enecumene]

Y...¿No hay que agregar alguna unidad especial en el uses?

[FGarcia]

Hola

Con este código obtengo los puertos seriales, no se donde lo consegui, pero me sirve muy bien, tal vez te de una idea.

Salud OS

Probablemente te lo haya pasado cuando veiamos lo de el Thread. Es codigo de Seoane en CD 

Bueno usando el cuadro de dialogo "Printers Dialog" de la pestaña Dialogs puedes seleccionar las impresoras disponibles sin complicarte la vida (eso dejamelo a mi).

[JandoK]

Hola

Con este código obtengo los puertos seriales, no se donde lo consegui, pero me sirve muy bien, tal vez te de una idea.

delphi

  { Obtiene Puertos Seriales disponibles}
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false) then
    begin
      Reg.GetValueNames(ComboBox1.Items);
      for I := 0 to ComboBox1.Items.Count - 1 do
          ComboBox1.Items[i] := Reg.ReadString(ComboBox1.Items[i]);
    end;
    ComboBox1.Sorted := true;
  finally
    Reg.Free;
  end;

Salud OS

ok ... lo checare...  y veremos como funciona...

gracias

salu2!!!!!!!

[JandoK]

Hola

Con este código obtengo los puertos seriales, no se donde lo consegui, pero me sirve muy bien, tal vez te de una idea.

Salud OS

Probablemente te lo haya pasado cuando veiamos lo de el Thread. Es codigo de Seoane en CD 

Bueno usando el cuadro de dialogo "Printers Dialog" de la pestaña Dialogs puedes seleccionar las impresoras disponibles sin complicarte la vida (eso dejamelo a mi).

pero el detalle es enviar los comandos de impresion directo al puerto, ya que sera para una
impresora de tickets...

y hasta donde he leido, es mejor mandarlos directamente al puerto...

es por eso que puse el ejemplo del primer post....

delphi

  AssignFile(Ticket, 'LPT1');

salu2!!!!!!!

[eduarcol]

pero el detalle es enviar los comandos de impresion directo al puerto, ya que sera para una
impresora de tickets...

y hasta donde he leido, es mejor mandarlos directamente al puerto...

es por eso que puse el ejemplo del primer post....

delphi

  AssignFile(Ticket, 'LPT1');

salu2!!!!!!!

Si la impresora se puede instalar sales mejor imprimiendo al canvas, te ahorras problemas con las USB: 

http://www.delphiacc...-una-impresora/

Es de Seoane

[JandoK]

Si la impresora se puede instalar sales mejor imprimiendo al canvas, te ahorras problemas con las USB: 

http://www.delphiacc...-una-impresora/

Es de Seoane

ok .. gracias  eduarcol ...  ya lo andaba checando .... 

salu2!!!!!!!