Seite 1 von 1

Bilder in Artikelliste ausgeben

Verfasst: Do 17. Jan 2013, 13:36
von diver66SI
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

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 17. Jan 2013, 14:01
von redone
Hallo,

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

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 17. Jan 2013, 14:34
von diver66SI
Danke für die schnelle Hilfe,

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

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 17. Jan 2013, 15:51
von diver66SI
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;

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 17. Jan 2013, 16:40
von redone
Hallo,

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

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 17. Jan 2013, 16:55
von diver66SI
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

Re: Bilder in Artikelliste ausgeben

Verfasst: Mi 23. Jan 2013, 09:36
von diver66SI
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 ?

Re: Bilder in Artikelliste ausgeben

Verfasst: Mi 23. Jan 2013, 20:10
von hei-ta
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

Re: Bilder in Artikelliste ausgeben

Verfasst: Mi 23. Jan 2013, 21:00
von diver66SI
Danke Helmut,

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


Gruss

Joe

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 24. Jan 2013, 08:08
von hei-ta
Hallo Joe,

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

Helmut

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 24. Jan 2013, 08:45
von diver66SI
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

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 24. Jan 2013, 13:11
von hei-ta
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 :D )
4. Ergebnis überprüfen (in diesem Fall sollten alle Artikel mit einer Bestandsmenge zwischen 1 und 100 ausgegeben werden)

Helmut

Re: Bilder in Artikelliste ausgeben

Verfasst: Do 24. Jan 2013, 20:38
von diver66SI
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

Re: Bilder in Artikelliste ausgeben

Verfasst: Fr 25. Jan 2013, 12:16
von hei-ta
Hallo Joe,

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

Helmut

Re: Bilder in Artikelliste ausgeben

Verfasst: Fr 1. Mär 2013, 15:24
von thomasdoro
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

Re: Bilder in Artikelliste ausgeben

Verfasst: Fr 1. Mär 2013, 19:02
von hei-ta
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

Re: Bilder in Artikelliste ausgeben

Verfasst: Fr 1. Mär 2013, 20:11
von thomasdoro
Danke Helmut,
so geht es auch bei mir.

Gruß
Thomas

Re: Bilder in Artikelliste ausgeben

Verfasst: Mo 25. Mär 2013, 17:19
von diver66SI
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

Re: Bilder in Artikelliste ausgeben

Verfasst: Mo 25. Mär 2013, 20:20
von redone
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.

Re: Bilder in Artikelliste ausgeben

Verfasst: Di 26. Mär 2013, 09:30
von diver66SI
Schade,

ich dachte es gibt irgendwie ein workaround,

Danke trotzdem