Einzelnen Beitrag anzeigen

HAWK_

Registriert seit: 7. Apr 2009
Ort: zu Hause
9 Beiträge
 
#4

Re: UFT-8 Zeichen aus TXT an Drucker

  Alt 13. Mai 2009, 08:08
den Drucker steuer ich direkt in seiner eigenen Sprache an. Ist ein CAB-Etikettendrucker. Der kann UFT-8, die Zeichen über die Schnittstelle retten, ist mir noch unklar.
Was ist ein Unicode-fähiges Assign?
-> CreateFileW schaue ich mir gleich mal an.

Die Programmierung sieht zur Zeit so aus...

Delphi-Quellcode:
  UTF8String = type string;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var lv_matnr,lv_data,lv_text:string;
    fdata:textfile;
    lv_data2 :widestring;
label jump;
begin
     lv_matnr := '50008045002990';
     AssignFile(fdata,'c:\polen.txt');
     {$I-}
     Reset(fdata);
     {$I-}
     If ( IOResult = 0 ) Then
     begin
          While not EOF(fdata) do
          begin
               Readln(fdata,utf8string(lv_data));
               lv_data2 := UTF8encode(UTF8String(lv_data));
               If Copy(lv_data2,1,14) = lv_matnr then
               begin
                    lv_text:=Copy(lv_data2,16,30);
                    goto jump;
               end;
          end;
          jump:
          closefile(fdata);
     end;
in lv_data steht der UTF-8 string. Nach dem Encode sind fast alle überflüssigen Zeichen weg, nur an erster Stelle steht noch ein "?". Ist das normal?
  Mit Zitat antworten Zitat