Seite 1 von 1

Barcode generieren

Verfasst: Mo Jun 23, 2014 11:49 am
von zKlein
Hallo!

Ich hoffe hier kann man mir helfen. Ich möchte einen Barcode generieren, der aus Computernamen und den letzten beiden Blöcken der IP-Adresse generiert werden soll.

Mein bisheriger Ansatz <Main data."Computer Name">+Delete(IntToStr(<Main data."Primary IP">,1,5) führt leider zu einem Fehler. ( "}" wird erwartet).

Ich bin dankbar für jede Hilfe, da die Dokumentation nicht wirklich weiterhilft.

Re: Barcode generieren

Verfasst: Mo Jun 23, 2014 1:19 pm
von HDTewes
Hi, ich glaube das geht nicht so ohne weiteres an dieser Stelle im Reportgenerator, die du gewählt hast.

Ich habe in das Detailband einen Barcode platziert und dann in das OnPrintEvent des Barcodes den folgenden Code eingebaut:

procedure Barcode1OnBeforePrint(Sender: TfrxComponent);
begin
if <Main data."ACMP Is Managed"> then
Barcode1.Text := <Main data."Computer Name"> +
copy(IntToStr(<Main data."Primary IP">),7,6)
else
Barcode1.Text := '';
end;

Vorsichtshalber frage ich ab, ob auf dem Client schon AMCP läuft. Erst dann ist die IP-Adresse gefüllt. Das Feld "ACMP is managed" muss also auch im Report eingebunden werden.

Im OnPrintEvent kann man sehr viel mehr Delphi-Funktionen benutzen als in der direkten Variablen-Deklaration im Reportgenerator.

Re: Barcode generieren

Verfasst: Mo Jun 23, 2014 1:58 pm
von zKlein
:shock: Oha... das liest sich kompliziert und das bei meinem begrenzten Programmierkenntnissen....

Ich werd mich mal dran versuchen. Vielen Dank schon mal ;)

Re: Barcode generieren

Verfasst: Mo Jun 23, 2014 4:05 pm
von zKlein
Vielen Dank für den Denkanstoß mit Copy.

Aktuell habe ich mir jetzt erst einmal mit der Lösung <Main data."Computer Name">+copy(IntToStr(<Main data."Primary IP">),6,6) geholfen.
Damit funktioniert es vorerst wie gewünscht.