Seite 2 von 2
Re: Bilder in Journalen
Verfasst: Mo 21. Mär 2011, 20:56
von Sebastian.Herbig
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;
Re: Bilder in Journalen
Verfasst: Mo 21. Mär 2011, 21:59
von hei-ta
@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
Re: Bilder in Journalen
Verfasst: Mo 21. Mär 2011, 22:20
von Sebastian.Herbig
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
Re: Bilder in Journalen
Verfasst: Mo 21. Mär 2011, 23:49
von Sebastian.Herbig
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;
Re: Bilder in Journalen
Verfasst: Di 22. Mär 2011, 08:53
von redone
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
Re: Bilder in Journalen
Verfasst: Di 22. Mär 2011, 15:02
von Sebastian.Herbig
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?)
Re: Bilder in Journalen
Verfasst: Di 22. Mär 2011, 15:25
von redone
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.
Re: Bilder in Journalen
Verfasst: Di 22. Mär 2011, 16:00
von Sebastian.Herbig
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...
Re: Bilder in Journalen
Verfasst: Di 22. Mär 2011, 18:17
von redone
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.
Re: Bilder in Journalen
Verfasst: Fr 23. Nov 2012, 15:07
von redone
Nachtrag:
ab ReportBuilder 14 ist FileExists eingebaut worden. Ab CAO 1.4.3.920 ist der in CAO eingebaut