Leeren TFileStream erzeugen?

[OrNEC]

Hallo,

kann man einen leeren FileStream erzeugen und wenn ja, wie?

So was wie TFileStream.Create(nil); oder so?

Danke!

[Sir Rufo]

Ein Dateiname muss schon sein und als Parameter fmCreate

[turboPASCAL]

?

Delphi-Quellcode:

fs := TFileStream.Create('MeineNullByteFile.Dat', fmCreate);
fs.Free

[OrNEC]

Also ich lese in ein FileStream ein Bild aus ner DB ein. Wird das Bild vom User gelöscht, muss ich beim Updaten der DB auch das Bild löschen. Ich dachte einfach mit nem leerem FileStream. Aber ich will dafür keine Datei einlesen.... :gruebel:

Delphi-Quellcode:

    // Bild updaten
    if srcpic <> 'empty' then
    begin
      src := srcpic;
      dest := ChangeFileExt(ExtractFilePath(ParamStr(0)), 'temp\temp.jpg');
      ScaleOneImage(src, dest, 200, 200, 92, True); // Seitenverhaeltnis wird beibehalten
      fs := TFileStream.Create(dest, fmOpenRead);
      try
        sSQL2:='UPDATE media SET picture = ? WHERE id_media=' + idinb + ';';
        db.UpdateBlob(sSQL2, fs);
      finally
        FreeAndNil(fs);
      end;
    end else
        begin
          // Bild loeschen (hier kracht es)
          fs := TFileStream.Create('MeineNullByteFile.Dat???', fmCreate); // geht vllt irgendwie anders
          try
            sSQL2:='UPDATE media SET picture = ? WHERE id_media=' + idinb + ';';
            db.UpdateBlob(sSQL2, fs);
          finally
            FreeAndNil(fs);
          end;
        end;

[sx2008]

Warum so umständlich?
Man kann doch einen Blob direkt per SQL löschen

Delphi-Quellcode:

// Bild loeschen
sSQL2:='UPDATE media SET picture = NULL WHERE id_media=' + idinb;
Connection.ExecuteSQL(sSQL2)

[OrNEC]

Wow... du bist ein Genie :thumb:

Danke dir! :thumb: