FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
de codigo VB a codigo Delphi
HOla .. les comento mi problemita
Este es codigo VBasic para la impresion de una etiqueta en una impresora Eltron (de codigos de barras) El problemita es que lo tengo que transcribir a delphi.. y si apenas se algo de delphi mucho menos de VB .. Hasta ahora saque las comillas doble por simples y cambie el & por + aunque no se si sera correcto, asumo que no porque no me imprimio nada ... GRACIAS Ingel CODIGO VBasic ------------ Private Sub Etiq_GrandeEAN13_Click() Open "LPT1" For Output As #1 Print #1, Chr$(13) Print #1, "O" Print #1, "D8" Print #1, "S2" Print #1, "ZT" Print #1, "JF" Print #1, "I8,1" Print #1, Chr$(13) Print #1, "FK" & Chr$(34) & "FIXEDAT0" & Chr$(34) Print #1, "FS" & Chr$(34) & "FIXEDAT0" & Chr$(34) Print #1, "Q480,24" Print #1, "q448" Print #1, "A30,10,0,4,1,3,N," & Chr$(34) & "Bicicleta Marca OLMO LS" & Chr$(34) Print #1, "A30,90,0,4,1,3,N," & Chr$(34) & "Modelo CGS24242W RDFGSJ" & Chr$(34) Print #1, "A30,170,0,4,1,3,N," & Chr$(34) & "Linea de Texto numero 3" & Chr$(34) Print #1, "B48,250,0,E30,3,9,180,B," & Chr$(34) & "779123456789" & Chr$(34) Print #1, "FE" Print #1, Chr$(13) Print #1, "FR" & Chr$(34) & "FIXEDAT0" & Chr$(34) Print #1, "?" Print #1, "P1" Close #1 End Sub Mi codigo Delphi cuasimodificado -------------------------------- procedure TFEtiquetas.BitBtn1Click(Sender: TObject); var Impresora: TextFile; begin with Printer do begin AssignPrn(Impresora); Title:=' EAN-13 Grande '; // titulo de la cola de impresión.... Rewrite(Impresora); Writeln(Impresora,chr(13)); Writeln(Impresora,'O' ); Writeln(Impresora,'D8' ); Writeln(Impresora,'S2' ); Writeln(Impresora,'ZT' ); Writeln(Impresora,'JF' ); Writeln(Impresora,'I8,1' ); Writeln(Impresora,Chr(13) ); Writeln(Impresora,'FK' + Chr(34) + 'FIXEDAT0' + Chr(34) ); Writeln(Impresora,'FS' + Chr(34) + 'FIXEDAT0' + Chr(34) ); Writeln(Impresora,'Q480,24' ); Writeln(Impresora,'q448' ); Writeln(Impresora,'A30,10,0,4,1,3,N,' + Chr(34) + 'Bicicleta Marca OLMO LS' + Chr(34) ); Writeln(Impresora,'FE' ); Writeln(Impresora,Chr(13) ); Writeln(Impresora,'FR' + Chr(34) + 'FIXEDAT0' + Chr(34) ); Writeln(Impresora,'?' ); Writeln(Impresora,'P1' ); CloseFile(Impresora); end; end; |
|
|
|