-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
also die Zeile stBild.Position := 0; wird benötigt, ansonsten gibts wieder den Fehler #42.
Naja ok, das Problem wäre gelöst.
Ich bedank mich für die Geduld und eure Hilfe :)
mfg
P.S. Jetzte hab ich nur noch das Problem mit dem "Formular zentriert ausdrucken" vor mir :)
-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
aaaaaah, es funktioniert.
lag es jetzte an folgender Zeile? :stBild.Position := 0;
Kannst du mir bitte noch kurz sagen, was diese Zeile genau bewirkt?
-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
also Programm läuft, nur werden keine Bilder angezeigt..
wenn ich anstatt TBitmap TJPEG nehm, meckert er mir wieder rum ... JPEG Fehler #42.....
mhhm....
-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
*bin zu doof* :*(
stBild: TStream;
jpgBild: TJPEGImage;
if qryGetDAtaBild.BlobSize > 0 then
begin
stBild := TMemoryStream.Create;
jpgBild := TJPEGImage.Create; // Grafik im JPEG Format erstellen
-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
Frames.Image1.Picture.LoadFromStream(stBild); --> Auf protected Symbol T.Picture.LoadFromStream kann nicht zugegriffen werden.
...Picture. kennt keine procedure die LoadFromStream heißt.
-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
if qryGetDAtaBild.BlobSize > 0 then
begin
stBild := TMemoryStream.Create;
qryGetDAtaBild.SaveToFile(stBild);
Frames.Image1.Picture.LoadFromFile(stBild);
end;
ist eigentlich der selbe den du oben gepostet hast.
-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
ok :)
könnt ihr mir bei der Fehlermeldung weiterhelfen?
-
Forum: Datenbanken
by Metallicwar,
13. Sep 2010
richtig DeddyH
--> qryGetDAtaBild: TBlobField;
Inkompatible Typen String und TStream;
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
Ich habe eine Lösung:
sBlobFile := 'c:\Test.jpg';
if qryGetDAtaBild.BlobSize > 0 then
begin
qryGetDAtaBild.SaveToFile(sBlobFile);
Frames.Image1.Picture.LoadFromFile(sBlobFile);
DeleteFile(sBlobFile);
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
oooh man ey..
ich kriegs einfach nicht hin :*(
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
Hi Leute :)
Erstmal danke für die bisherige Hilfe und die Codes :)
habe vll noch eine Möglichkeit
var
Datei: TFileObject;
...
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
zu (1): Zusätzliche Tabellenspalten möchte ich nicht unbedingt anlegen. Da gibt es doch bestimmt auch andere Wege, mein Problem zu beheben oder ? :roll:
zu (2): Wäre vll sogar besser^^
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
Alle 3 BLOB Felder enthalten folgendes: ÿØÿà
Hab keine Ahnung was das ist, kann man mir auch mal kurz erklären^^ :)
Dass etwas drinne steht, ist mir klar, aber nur für die Mitarbeiter für denen ich ein Bild ausgewählt habe, MA die kein Bild hinterlegt haben, werden in der Tabelle doch auch nicht aufgelistet
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
also in meiner Tabelle, in der die Bilder hinterlegt sind, sind nur Bilder hinterlegt von denen auch ein Bild vorhanden ist. Wenn ein Mitarbeiter kein Bild hat steht auch nicht in der Tabelle.
ID|||||ID_Personal|||||Bild
1||||||||||1||||||||||BLOB)
2||||||||||2||||||||||BLOB)
3||||||||||4||||||||||BLOB)
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
mhhm, der Fehler tritt auch mit .isNull auf..
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
Folgendes hab ich probiert:
if qryGetDAtaBild <> nil then
begin
sBlobFile := 'c:\Test.jpg';
qryGetDAtaBild.SaveToFile(sBlobFile);
Frames.Image1.Picture.LoadFromFile(sBlobFile);
DeleteFile('c:\Test.jpg');
end
else
begin
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
aaah, habe noch einen Fehler:
Manche Mitarbeiter aus DB haben keine Bilder, dieses "nicht vorhandene Bild" versucht er ins TImage zu laden, daher entsteht warscheinlich der Fehler JPEP-Fehler #42 ist aufgetreten
Wie könnte ich diesen Fehler beheben?
Könnte ich evtl. abfragen, ob für den aktuellen Datensatz ein Bild vorhanden ist, wenn nicht soll er einfach ein weißes JPEG Bild was ich...
-
Forum: Datenbanken
by Metallicwar,
10. Sep 2010
Moin Moin,
ich habs hinbekommen...
folgendermaßen:
var
sBlobFile : String;
.....
sBlobFile := 'c:\Test.jpg';
qryGetDAtaBild.SaveToFile(sBlobFile);
-
Forum: Datenbanken
by Metallicwar,
9. Sep 2010
habe folgendes gemacht:
uses ... JPEG;
var
Bild: TJpegImage;
......
-
Forum: Datenbanken
by Metallicwar,
9. Sep 2010
mhhm.
Code lässt sich compilieren und ausführen.
Nachdem ich den Button zum Frames erstellen drücke, erhalte ich eine Zugriffsverletzung.
Exception-Klasse EAccessViolaten mit Meldung Zugriffsverletzung bei Adresse......
nochmal eine Zusatzinfo, vll hilft das:
Datenfeld Bild ist vom Typ "BLOB"
-
Forum: Datenbanken
by Metallicwar,
9. Sep 2010
Auf protected Symbol TPicture-LoadFromStream kann nicht zugegriffen werden.
P.S. Ihr seit echt spitze, so schnell hab ich noch nirgendwo Hilfe bekommen und dazu noch super Antworten. Klasse :thumb:
-
Forum: Datenbanken
by Metallicwar,
9. Sep 2010
var
Bilder: TStream;
....
qryGetDAtaBild.SaveToStream(Bilder);
Frames.Image1.Picture := qryGetDAtaBild.LoadFromStream(Bilder);
....
Inkompatible Typen: TStream und procedure....
-
Forum: Datenbanken
by Metallicwar,
9. Sep 2010
Hallo,
und erneut habe ich eine mit Sicherheit leicht zu beantwortende Frage:
Meine Query ließt bestimmte Daten aus DB aus u.a. auch das Bild.
SELECT
p.Name,
p.Vorname,
abt.Bezeichnung,
pz.Austritt,
F.Bezeichnung,