Bilder in Journalen

Hat es bei Dir funktioniert?
Delphi + die Funktion hören sich vielversprechend an, jedoch erhalte ich die Fehlermeldung:

Fehler: TestbildOnPrint, Zeile 3: Erwartet '(' oder '[', stattdessen wurde 'LoadFromFile' gefunden.

Mein Skript sieht aktuell so aus:

Code: Alles auswählen

begin
    Testbild.Picture.LoadFromFile('C:\bilder\'+Artikel['USERFELD_01']);
end;

@eddi-t: Danke für Tipp mit Katalog
@redone: Danke für Tipp mit Script

Funktioniert bestens. Wollte schon früher einmal die gescannten Mitarbeiter-Unterschriften in Abhängkeit zum aktuellen Bearbeiter einfügen können. Bin damals aber gescheitert.

Code: Alles auswählen

procedure SummaryBeforePrint;
begin
    Image4.Picture.LoadFromFile('O:\'+ Firmendaten['USER_AKT']+'.jpg');
end;

Helmut

ihr wollt mich doch hochnehmen... wir haben noch nicht den 1. April... !
bei mir kommt immer die gleiche Fehlermeldung.

=== Zeitfenster / 5 Minuten ===

Fehler war:
das Bild muss im Unterbericht eingefügt werden.
der entscheidende Klick war der procedure Aufruf von Helmut.

Jetzt klappt es auch bei mir...
das wird ein schönes Spiel.

Danke auch nochmal an redone.
Den Katalog kannte ich schon... aber da fehlte mir eben der "Automatismus" - danke eddi-t

faaast fertig...
dank JAVA ist mir die Try Abhandlung weitestgehend bekannt... hier bekomme ich sie nicht eingebunden.
mit if komme ich auch nicht weiter.

wenn z.B. für einen Artikel kein Bild vorhanden ist sollte er das abfangen können.

Sollte das Bild "Artikelnummer.jpg" nicht vorhanden sein, dann

das try schluckt er aber nicht...

Code: Alles auswählen

begin
  try
   Bild.Picture.LoadFromFile('C:\bilder\'+Artikel['ARTNUM']);
  except
   Bild.Picture.LoadFromFile('C:\bilder\noimage.jpg');
end;

Hi,

leider kann man im Reportbuilder nicht mit Try und auch nicht mit FileExist arbeiten, wird nicht unterstützt.
Ein Weg wäre eine Prozedur einzufügen, die Prüft ob das Bild vorhanden ist. Nur wird das warscheinlich auch wieder am RB

dazu fehlt mir fast ein wenig das Know-How in Delphi.
ich komme mit der Programmierung auch nur dank Basic, Java, PHP klar... die Funktionen suche ich mir immer im Web zusammen (heißen ja in etwa gleich).
was meinst Du mit "Nur wird das wahrscheinlich auch wieder am RB..." (da fehlt noch was... oder?)

Hi,

ja, scheitern sollte es heißen.

Ich schaumal ob ich eine Alternative finde, denn wenn das korrekt abgefragt würde, dann ließen sich Kataloge Recht einfach erstellen.

den Rest würde ich machen.
ich müsste nur das abfangen wissen.

gibt die Funkiton LoadFromFile auch einen BOOL Wert aus (so wie in Java)?
Denn dann könnte man ja auf IF abfragen...

Hi,

hiermit

Code: Alles auswählen

function FileExists(FileName: string): Boolean;
 var
  F: file;
begin
  AssignFile(F, FileName);
  FileMode := 0;
  Reset(F);
  CloseFile(F);
  FileExists := (IOResult = 0) and (FileName <> '');
end;

hätte man das fehlende FileExists nachbauen können. Aber wie ich ja schon vermutet habe, macht der RB da nicht mit. Er kennt den Typ file nicht. Somit bekommt man keinen FileHandle und die Funktion funzt nicht. Das einfachste wäre da vermutlich ein Dummybild für alle Artikel zu erstellen.

Nachtrag:

ab ReportBuilder 14 ist FileExists eingebaut worden. Ab CAO 1.4.3.920 ist der in CAO eingebaut