Bilder in Artikelliste ausgeben

Hallo,
ich möchte meine Artikelliste gerne mit Bilder ausgeben,
dazu habe ich das Userfeld_1 benutzt und dort den Bildnamen eingetragen. zB.: bild-11dm.jpg

Im Reportbuilder spreche ich das Feld an als DBtext und mir wird der Text ausgegeben, okay
wie bekomme ich denn das Bild angezeigt ? als DBImage, wird nichts angezeigt,
mir ist auch nicht klar, wo der Reportbuilder nach dem Bild sucht, da in dem Userfeld_1
auch nur der Bildname eingetragen ist und kein Pfad ..... wohin muss ich denn das Bild legen
bzw in welches Verzeichnis reinkopieren ...

Gruss

Joe

Hallo,

Artikelkatalog hatten wir schonmal. Schaumal ob dir das hilft: Bilder über Code einfügen

Danke für die schnelle Hilfe,

Den Thread hatte ich schon gesehen, aber leider sind die Formulare nicht mehr verfügbar

Hi,

wie kann ich diese Funktion einsetzten, um bei nichtexistierenden Bildern ein no-image.jpg auszugeben?

gruss

Joe

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;

Hallo,

Im RBuilder ab 14.x (CAO-Faktura 1.4.3.920) kann man die Funktion FileExist nutzen, die im RBuilder eingebaut wurde

Ich antworte mirt mal selber, falls jemand das gleiche machen will :

Code: Alles auswählen

begin
 if FileExists('C:\bilder\'+Artikel['USERFELD_09']) then
 Image1.Picture.LoadFromFile('C:\bilder\'+Artikel['USERFELD_09'])
 else Image1.Picture.LoadFromFile('C:\bilder\no-image.jpg');
 end;

USERFELD_09 -> Titel des Bildes
Image1 -> Name des Ausgabebildes im Reportbuilder

das wars schon

Die Bilder werden zwar in der Artikelliste ausgegeben, aber
nach circe 25.000 Seite habe ich die Ausgabe abgebrochen,
ich denke mal die Zahl würde ins endlose steigen,
woran kann denn das liegen ?

Hallo Joe,

wir wissen es leider auch nicht, da wir nicht wissen was Du im Formular verbrochen hast
Poste doch mal Dein Formular für die betreffende Artikelliste

Helmut

Danke Helmut,

oops wie dumm von mir :-)
ich habs mal angehängt,


Gruss

Joe

Hallo Joe,

hab den Code ein wenig begradigt. Image2-Image4 fehlt noch im Formular. Also noch einfügen sonst gibst evtl. einen Fehler.

Helmut

Hallo Helmut,

das freut mich ja total vielen vielen dank, mein formular war ja 10x mal so gross wie deines,
wenn ich mal fragen darf, wo und wie hast du denn das formular bereinigt ?
wo muss ich denn eingreifen, um zum beispiel nur artikel auszugeben, deren lagerbestand > 0

supi

Gruss

Joe

Hallo Joe

freut mich, dass ich Dir weiterhelfen konnte.
Bereinigung:
unter Berechnungen im Report-Builder

Artikel > 0:
Du setzt den entsprechenden Filter
1. Artikelstamm aufrufen
2. Erweiterte Artikelsuche aufrufen (Strg+W), Kriterien eintragen: Auswahl --> Menge; Typ --> N; Von --> 1; Bis --> 100
3. Drucken/Artikelliste (das neue Formular )
4. Ergebnis überprüfen (in diesem Fall sollten alle Artikel mit einer Bestandsmenge zwischen 1 und 100 ausgegeben werden)

Helmut

Helmut,

du bist echt super,

vielen vielen Dank
sollte Dein nächster Urlaub Dich auf die schönen Kanaren (La Palma) führen,
lad ich Dich zum Essen ein, und wenn Du Taucher bist gehen wir auch noch Tauchen :-)


sonnige Grüsse

Joe

Hallo Joe,

freut mich, dass ich Dir helfen konnte. Vielleicht komme ich nächstes Jahr auf das Angebot zurück

Helmut

Hallo
ich habe da mal eine Frage.
Kann man das Formular auch so hinbekommen das man anstatt Userefeld_XX
da die Artikelnummer nehmen kann.
Wäre meiner ansicht nach leichter (zumindest für mich).
Meine versuche einfach ARTNUM oder ['ARTNUM'].jpg einzuschreiben gingen leider nicht.

Gruß
Thomas

Hallo Thomas,

funktioniert bei mir ohne Probleme.

Code: Alles auswählen

procedure DetailBeforePrint;
begin
 if FileExists('C:\bilder\'+Artikel['ARTNUM']+'.jpg') then
  Image1.Picture.LoadFromFile('C:\bilder\'+Artikel['ARTNUM']+'.jpg')
 else
  Image1.Picture.LoadFromFile('C:\bilder\no-image.jpg');
 end;
end;

Helmut

Danke Helmut,
so geht es auch bei mir.

Gruß
Thomas

Hi,

hat jemand eine Ahnung wie ich den Code umschreiben muss, wenn das Bild auf einem Server im Internet liegt, zum Beispiel http://www.abc.com/pics/123.jpg
wie muss ich denn den loadFromFile Befehl umstellen ?

Code: Alles auswählen

procedure DetailBeforePrint;
begin
 if FileExists('C:\bilder\'+Artikel['ARTNUM']+'.jpg') then
  Image1.Picture.LoadFromFile('C:\bilder\'+Artikel['ARTNUM']+'.jpg')
 else
  Image1.Picture.LoadFromFile('C:\bilder\no-image.jpg');
 end;
end;

dieser code funktioniert leider nicht

Code: Alles auswählen

begin
 if FileExists('L:'+Artikel['USERFELD_09']) then
 Image1.Picture.LoadFromFile('http://www.abc.com/pics/'+Artikel['USERFELD_09'])
 else Image1.Picture.LoadFromFile('C:\bilder\no-image.jpg');
 end;
end;

das Bild existiert auf dem Server und im Verzeichnis !


regards

Joe

Hi,

LoadFromFile läd nur Bilder von der Platte nicht aber aus dem Internet. Dazu müßte man das Bild erst runterladen, mit z.B LoadFromStream. Dafür muss man dann einen MemoryStream definieren und da wird der RBuilder nicht mitspielen.

Schade,

ich dachte es gibt irgendwie ein workaround,

Danke trotzdem