Bilder in die Paradoxtabelle speichern ?

[Vader]

es kommt der fehler, siehe anhang !

ich glaub ich habe das schon drauf auf der platte, aber ich muß es richtig aufrufen in meinen programm ?
mfg vader

[mkinzler]

Ja,, das package war wohl schon installiert! Zum testen kannst du ja mal versuchen ein Jpeg-Bild in eine TImage-Komponente zu Laden. Sollte dann gehen.

[Vader]

ja,ich kann ein jpg in ein Timage laden , aber wieso kommt dann der fehler, wie ich im beitrag #22 geschrieben
habe ?

[Fehler] Unit1.pas(44): Undefinierter Bezeichner: 'TJPEGImage' mfg vader

[mirage228]

Hi,

hast Du die Unit JPEG in Deiner Uses-Liste?

mfG
mirage228

[Vader]

hallo,

JPEG habe ich in uses aufgenommen,dann hat er auch den code kompiliert

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var 
   blob : TMemoryStream; 
  jpeg : TJPEGImage;
   bmp : TBitmap; 
   s: String; 
begin 
    blob :=  TMemoryStream.Create(); 
    jpeg := TJPEGImage.Create;
    bmp := TBitmap.Create; 
   TRY 
     if OpenpictureDialog1.Execute then 
     begin 
          s :=ExtractFileExt(OpenPictureDialog1.FileName); 
          if uppercase(s) = '.BMP' then 
          begin 
             bmp.loadfromfile(OpenPictureDialog1.FileName); 
             blob.Clear; 
             bmp.saveToStream(blob); 
          end else 
          begin 
            jpeg.LoadFromFile(OpenPictureDialog1.FileName);
             blob.Clear; 
            jpeg.SaveToStream(blob);
          end; 
        //  query1.SQL.Text := 'Update Tabelle Set Foto = :Bild  where ID = :id';
          query1.SQL.Text := 'Insert into losch( Tennis) values( :Bild);'; 

          query1.ParamByName('bild').LoadFromStream(blob,ftGraphic); 
       //   query1.ParamByName('id').AsInteger := DM.FahrerID.AsInteger;
          query1.ExecSQL; 
     end; 
   Finally 
      freeandnil(blob); 
      freeandnil(jpeg);
      freeandnil(bmp); 
      DBImage1.LoadPicture; 
   END 
end;

er läßt mich auch posten, aber wenn ich das jpeg dann in der dbimage anschauen will kommt der fehler


bitmap ist ungültig mfg vader

[hanspeter]

Mit Paradox und Blob sollte man sehr vorsichtig sein.
Damit bin ich schon vor 8 Jahren in der Hochzeit der BDE auf die Nase gefallen.
Paradox hat einen nie beseitigten Handlingfehler bei Blobs. Irgendwann kommt dann die Meldung
Blob kann nicht gelesen werden und ist dann irreversibel zerschossen.
Wenn die Blob unbedingt in der Datenbank gespeichert werden soll, dann sollte man auf eine andere
Datenbank ausweichen. Firebird hat z.B. keinerlei Probleme mit Blob.

Gruß Peter

[mikhal]

Trotz Einbinden der Unit Jpeg ist es mir noch nie gelunden, Jpegs direkt aus einem BLOB-Feld in TDBImage anzuzeigen. Ich erhielt immer eine Fehlermeldung (keine gültige Bitmap oder ähnlich). Deshalb verwende ich immer TImage und weise TImage im Ereignis AfterScroll des Datasets das Jpeg-File aus dem Blob-Feld zu.

Ansonsten kann auch ich nur anraten, bei Paradox keine Blob-Felder zu verwenden, weil auch ich nur schlechte Erfahrungen damit gemacht habe.

Grüße
Mikhal

[Vader]

ok,überredet
ich lasse die finger mit dem abspeichern in die paradox !!!
aber wie geht das, das ich nur den pfad in der datenbank habe zu dem foto ??
MFG VADER

[mikhal]

function ExtractFilePath(const FileName: string): string; In der Unit SysUtils findest du diese Funktion, sie extrahiert den Pfad aus dem Dateinamen.

Grüße
Mikhal

[marabu]

Da liegt wohl ein Missverständnis vor - nicht der absolute Pfadanteil einer Photodatei wird in der Datenbank gespeichert, sondern der Dateiname, allenfalls mit einem relativen Pfadanteil, sollte gespeichert werden. Der absolute Bezugspunkt im Dateisystem sollte als Konfigurationsparameter zugänglich sein, so dass man die Bilddateien nach Bedarf im Dateisystem verschieben kann, ohne dass die Referenzen in der Datenbank ungültig werden.

Grüße vom marabu