AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Foto in DB speichern?

Ein Thema von khh · begonnen am 7. Jan 2009 · letzter Beitrag vom 7. Jan 2009
 
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#16

Re: Foto in DB speichern?

  Alt 7. Jan 2009, 16:27
Hier mal meine Routine (FBLib statt ZEOS, nicht wundern). Allerdings speichere ich vorher ggf. den neuen Datensatz ab und mache danach ein Update, um nicht alles doppelt schreiben zu müssen:
Delphi-Quellcode:
procedure TMyClass.StorePic;
var aStream: TMemoryStream;
begin
  if FPicModified then
    begin
      with TFBLParamDsql.Create(nil) do
        try
          Transaction := FTransaction;
          if not Transaction.InTransaction then
            Transaction.StartTransaction;
          SQL.Text := 'UPDATE Tabelle SET Bild=:bild WHERE ID=:id';
          Prepare;
          ParamByNameAsInt64('id',FID);
          if Assigned(FBild) then
            begin
              aStream := TMemoryStream.Create;
              try
                FBild.SaveToStream(aStream);
                aStream.Position := 0;
                BlobParamByNameLoadFromStream('bild',aStream);
              finally
                aStream.Free;
              end;
            end
          else
            ParamByNameAsNull('bild');
          try
            ExecSQL;
          except
            raise;
          end;
          FPicModified := false;
        finally
          Free;
        end;
    end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz