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?