Brother P-Touch QL-1060N gibt mit SDK nur leere Etiketten aus

[TiGü]

Haben die Methoden noch Rückgabewerte, die man auslesen und auswerten kann bzw. gibt es bei reiner boolscher Rückgabe sowas wie eine GetLastError-Funktion (Internet sagt: IDocument.ErrorCode)?
In vielen Beispielen wird vor StartPrint noch per IDocument.GetObject.Text oder IDocument.SetText das entsprechende Textfeld gesucht, zurückgegeben und gefüllt.
Fehlt dir das vielleicht?
Kenne deine Vorlagen-Datei (LBX) nicht?!

[menten]

Hallo zusammen,

von dem C# Quellcode habe ich mal einen Screenshot angehägt. Das ist das original Beispiel aus dem SDK. Ich hab nur den Pfad zu den Templates geändert.

Ich habe auch mein Delphi Beispiel mal angehängt. Das ist mit einer frischen Windows 10 und Delphi 11 Umgebung gemacht und zeigt den gleichen Fehler wie meine ersten Tests mit Delphi 10. Wenn ich die Anwendung auf einem anderen Rechner laufen lasse, auf dem der Treiber installiert ist, bekomme ich erwartungsgemäß einen Fehler wegen nicht installierter Klasse. Nach der Installation des b-pac Clients ist der Fehler weg und das Label wird gedruckt, allerdings mit dem gleichen Fehler.

Die Vorlagendatei ist quasi leer. Ich habe da nur einen einfachen Text eingegeben und setzte in dem Beispiel auch keine Werte.


Ich hab auch mal ein Bild von einem Label angehägt. Für mich sieht das aus wie ein Initialisierungsfehler. Muss da vielleicht irgendeine DLL mit dazu?


Danke und Gruß
Stefan

[hoika]

Hallo,
im c#-Code stehen noch zwei Zeilen
doc.GetObject

Ob das in Delphi fehlt?`
Kann ich mir nicht vorstellen, aber ...

[menten]

Hallo,

mit "getObject" greift man auf im Template angelegte Textobjekte zu und weist denen neue Werte zu.

Das habe ich weg gelassen umd das eben als Fehler ausschließen zu können.


Gruß
Stefan

[hoika]

Hallo,
das war der einzige Unterschied, den ich bei C# und Delphi sehe.

[menten]

Hallo noch mal,

Fehler gefunden. Offensichtlich sind die Beispiele nicht ganz aktuell. Der Beispielcode in der Hilfe verwendet "StartPrint". Allerdings muss man dabei entgegen den Beispielen dem Parameter "docName" einen Wert geben. Sonst kommt Fehler 25. So funktioniert der Druck:

<--

procedure TForm1.Button2Click(Sender: TObject);
var
FPTouchDocument: bpac_TLB.IDocument;
begin

FPTouchDocument := CreateComObject(CLASS_Document) as bpac_TLB.IDocument;

if FPTouchDocument.Open('.\test2.lbx') then
begin

if FPTouchDocument.GetObject('Text2') <> nil then
FPTouchDocument.GetObject('Text2').Text := 'testtext';

if FPTouchDocument.StartPrint('Sample', bpoDefault) then
begin

if FPTouchDocument.PrintOut(1, bpoDefault) then
begin
FPTouchDocument.EndPrint;
FPTouchDocument.Close;
end
else
ShowMessage(FPTouchDocument.ErrorCode.ToString);
end
else
ShowMessage(FPTouchDocument.ErrorCode.ToString);
end
else
ShowMessage(FPTouchDocument.ErrorCode.ToString);

end;

-->




Gruß
Stefan