Blobs speichern

[TheMiller]

Hallo,

nochmal zum Blob:

Habe folgenden Code:

Delphi-Quellcode:

procedure TForm6.LbSpeedButton1Click(Sender: TObject);
var
  FileStream:TFileStream;
  BlobStream:TBlobStream;
begin
  if OpenDialog1.Execute then
    Edit3.Text:=OpenDialog1.FileName;
    FileStream:=TFileStream.Create(Edit3.Text,fmOpenRead);
    BloBStream:=TBlobStream.Create(TEdit(Form1.ZQuery1.FieldByName('anlage')), bmread);
    //weiter bin ich noch nicht...
end;

Mein Fehler liegt bei der Initialisierung des Blob-Streams. Ich bekomme immer die Meldung "inkompatible Typen String und TBlobField"

Mein zu speichernder Anhang befindet sich in der Edit1 Komponente. Wie kann ich die Datei jetzt in die DB speichern bzw. das Feld "kompatibel" machen?

EDIT: ICH HABE KEINE DATASET-KOMPONENTE!

[Sharky]

Zitat von DJ-SPM:

... Mein zu speichernder Anhang befindet sich in der Edit1 Komponente. ...

Bist Du dir sicher das dein Anhang sich in Edit1 befindet? Was soll das denn für ein Anhang sein der in einem TEdit steht?

[TheMiller]

da steht der Pfad zu der Datei drin. Ich weiß, es muss in einen Filestream geschrieben werden. Ich bekomme es trotzdem net so hin

[ol1uw]

Zitat:

 BloBStream:=TBlobStream.Create(TEdit(Form1.ZQuery1.FieldByName('anlage')), bmread);

Vielleicht geht das.
BloBStream:=TBlobStream.Create((Form1.ZQuery1.FieldByName('anlage') as TBlobField), bmread);

[TheMiller]

Undefinierter Bezeichner TBlobField
inkompatible Typen TBlobField und TField
konnte nicht ...

[ol1uw]

BloBStream:=TBlobStream.Create(Form1.ZQuery1.FieldByName('anlage'), bmread); Allerdings stand im ersten Post

Zitat:

Mein Fehler liegt bei der Initialisierung des Blob-Streams. Ich bekomme immer die Meldung "inkompatible Typen String und TBlobField"

deswegen das as TBlobField

[TheMiller]

Ja, hatte schon mehrere Möglichkeiten ausprobiert. Es funktionieren beide nicht

[Sharky]

Hai DJ-SPM,

ich selber arbeite (fast)nur mit INSERT, UPDATE Befehlen. In diesem Fall würde ich das also so lösen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TMemoryStream;
  anlagefile : string;
begin
  if (OpenDialog1.Execute) then
  begin
    anlagefile :=OpenDialog1.FileName;
    try
     FileStream:=TMemoryStream.Create; // Stream erzeugen
     FileStream.LoadFromFile(anlagefile); // Anhang laden
     FileStream.Position := 0;
     ZQuery1.Close;
     ZQuery1.SQL.Text := 'INSERT INTO anlagen (anlage) VALUES (:panlage)';
     ZQuery1.ParamByName('panlage').LoadFromStream(FileStream,ftBlob); // ab damit
     ZQuery1.ExecSQL;
    finally
      FileStream.Free;
    end;
  end;
end;

[TheMiller]

Danke,

werde es mal ausprobieren und mich melden!

[marabu]

Hi Sharky,

muss der Umweg über einen Parameter wirklich sein?

Delphi-Quellcode:

procedure TForm6.LbSpeedButton1Click(Sender: TObject);
var
  fs: TFileStream;
  bf: TBlobField;
begin
  with OpenDialog do
  if Execute then begin
    fs := TFileStream.Create(FileName, fmOpenRead);
    bf := Form1.ZQuery1.FieldByName('anlage') as TBlobField;
    // ZQuery1.RequestLive ist TRUE und
    // die Query befindet sich hoffentlich im Edit-Modus
    bf.LoadFromStream(fs);
    fs.Free;
  end;
end;

Grüße vom marabu