JPEG in DBImage-Objekt darstellen

[hacki]

Hallo Freakies,

ich möchte JPG-Dateien in einem DB-Image-Objekt darstellen. Ich lade die Dateien über

Delphi-Quellcode:

DBImage1.Picture.LoadFromFile( OpenPictureDialog.FileName );

in das DBImage-Objekt und damit auch in das damit verknüpfte Datenbankfeld (BLOB-Feld einer Paradox-Datenbank).

Dies funzt mit BMP-Dateien echt fett. Aber mit JPG-Files tut sich nichts !

Wer kann mir helfen ? Wer weiß rat ? :cry: :cry:

hacki

[edit=Daniel B]Und ab nach Datenbanken.[/edit]

[d3g]

Hi hacki,

da du in Multimedia postest, nehme ich an, dass du in diesem Fall nichts mit Datenbanken am Hut hast - du solltest also TImage (vom Register "Additional"/"Zusätzliche") benutzen. Außerdem ist wichtig, dass du die Unit JPEG eingebunden hast. Seltsam ist allerdings, dass es mindestens eine Exception geben sollte...

Wie auch immer probier's einfach mal mit TImage und uses JPEG;.

MfG,
d3g

[hacki]

hi d3g,

danke für die schnelle antwort. ich habe an der falschen stelle gepostet. bin noch nicht so lange dabei und find mich noch nicht so zurecht.

ich möchte die JPEG Files in eine Datenbank ablegen und nutze deshalb das DBIMAGE. Die Unit JPEG ist eingebunden. Allerdings habe ich die obige Anweisung in einer exception Anweisung verpackt. Vielleicht habe ich deshalb keinen Fehler bekommen.

Delphi-Quellcode:

    try
      MainForm.TechTakTable.Edit;
      DBImage11.Picture.LoadFromFile( OpenPictureDialog.FileName );
      MainForm.TechTakTable.Post;
     except
     end

Kann man den Beitrag umhängen ?

Hacki

[sakura]

Zitat:

Zitat von hacki

ich habe an der falschen stelle gepostet. bin noch nicht so lange dabei und find mich noch nicht so zurecht.

Kein Problem, in diesem Fall hat es ja auch was mit DBs zu tun, obwohl die Lösung gleich bleibt.

OK - schwups -> ab nach MultiMedia, oder doch VCL :?: - ach was, bleibt hier, passt schon.

[RomanK]

Zitat:

Zitat von sakura

Kein Problem, in diesem Fall hat es ja auch was mit DBs zu tun, obwohl die Lösung gleich bleibt.

OK - schwups -> ab nach MultiMedia, oder doch VCL :?: - ach was, bleibt hier, passt schon.

@Sakura:
Daniel B. hat das Thema ja schon von Multimedia in DB verschoben ...

[sakura]

:oops: Den hatte ich verpasst - aber ich finde, dass es auch da nicht schlecht aufgehoben wäre. Zumindest alle Male besser als .NET oder WinAPI ;)

[hacki]

Danke dass ihr mich so prima aufnehmt ! Ich habe zwischenzeitlich noch weiter rumgestöbert und bin DANK deines Tips d3g auf die Lösung gestossen. Für alle die es interessiert:

Die Proceduren:

Delphi-Quellcode:

PROCEDURE TTechBeForm.StoreJPEGImage(Field: STRING);
VAR s   : TBlobStream;
    fs  : TFileStream;
BEGIN 
    IF OpenPictureDialog1.Execute THEN
    BEGIN

        fs := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
        s := TBlobStream.create(MainForm.TechTakTable.FieldByName(Field) AS TBlobField, bmWrite);
        s.CopyFrom(fs, fs.Size);
        fs.free;
        s.Free;

    END;
END;

und

Delphi-Quellcode:

PROCEDURE TTechBeForm.LoadJPEGImage(Field: STRING; Image: TImage);
VAR s    : TBlobStream;
    jpg  : TJPEGImage;
BEGIN

    IF NOT (MainForm.TechTakTable.FieldByName(Field) AS TBlobField).IsNull THEN
    BEGIN 
        s := TBlobStream.create(MainForm.TechTakTable.FieldByName(Field) AS TBlobField, bmRead); 
        jpg := TJPEGImage.Create; 
        jpg.LoadFromStream(s); 
        Image.Picture.Assign(jpg); 
        jpg.Free; 
        s.Free; 
    END ELSE 
    BEGIN 
        Image.Picture.Assign(NIL);
    END;

END;

können prima dazu verwendet werden, das JPEG aus der Datenbank zu lesen (LoadJPEGImage) bzw. hinein zu schreiben (StoreJPEGImage) !
Dies kann dann beispielsweise bei einem Event zu folgendem kombiniert werden um das Bild in einem TImage (nicht DBImage) anzuzeigen ! DBImage unterstützt anscheinend keine JPEG-Anzeige !

Delphi-Quellcode:

    try
      MainForm.TechTakTable.Edit;
      StoreJPEGImage('TTSnapShoot10');
      LoadJPEGImage( 'TTSnapShoot10', Image4 );
      MainForm.TechTakTable.Post;
     except
     end

Beim Laden der Form reicht dann

Delphi-Quellcode:

if( not MainForm.TechTakTable.FieldByName('TTSnapShoot7').IsNull ) then
  LoadJPEGImage('TSnapShoot7', Image1 );

Also denn ...

HACKI