Einzelnen Beitrag anzeigen

HendrikM

Registriert seit: 30. Aug 2005
Ort: Berlin
49 Beiträge
 
#4

Re: SQL Server und FileStreams

  Alt 8. Aug 2006, 12:13
Hallo,
der geeignete Feldtyp ist image.
Zum Schreiben (und Lesen) muss das Feld persistent in Deinem Code vorhanden sein (z.B. per Feldeditor "alle Felder hinzufügen").
Ich hab das mal T_BLOB genannt.
Dann folgendes:
1. entsprechenden Datensatz öffnen (T_ ist TADODataset)
F_Name ist der vollständige Pfadname der Datei die auf das feld eingelesen werden soll.

2.
Delphi-Quellcode:
procedure ThisEdit;
var aBS:TADOBlobStream;
begin
     try
        T_.edit;
        aBS:=TADOBlobStream.Create(T_BLOB,bmwrite);
        aBS.LoadFromFile(F_NAME);
     finally
            aBS.Free;
     end;
     T_.post;
end;
3. Zum Auslesen:
Delphi-Quellcode:
var aBS:TADOBlobStream;
begin
   try
          DeleteFile(F_Name); // falls schon vorhanden
        aBS:=TADOBlobStream.Create(T_BLOB,bmread);
          aBS.SaveToFile(F_Name);
     finally
        aBS.Free;
     end;
end;
hendrik
  Mit Zitat antworten Zitat