MS SQL varbinary(max) zu Virtual String Tree, welcher Datentyp?

[Piro]

Moin zusammen,

Ich habe eine Anwendung die Aufgaben erfasst und die Dateien als PDF oder Docx speichert.

Die Dateien landen in der MSSQL DB 2008 in einem varbinary(max) Feld.

Nun möchte ich gerne die Aufgabe und den vorhandenen Dateien in ein VST (Virtual String View) laden.

Später soll in einem kleinen Vorschaufenster in der Anwendung das Dokument bzw. der Inhalt der Datei angezeigt werden.

Welcher Datentyp in Delphi macht jetzt am meisten Sinn, um die bestmöglichste Voraussetzung zu schaffen, um dann weiter zu machen, wie das Anzeigen des Inhaltes.

Nach einer kleine Recherche würde ich TStream nehmen.

Was sagt ihr dazu und wie sind eure Erfahrungen?

MfG
Sven

[Piro]

Datei vom VST (VirutalSringTree) in die DB speichern.

Delphi-Quellcode:

type
 TODocuments = class
  private
    //
  public
    id            : String;
    docType       : Integer;
    doc           : TStream;
    docFileStream : String; // nur für DB Speicherung erforderlich
    docFileName   : String;
    docExt        : String;
    docComment    : String;
    deletedRecord : Boolean;

...
procedure Tfrm_task.tbtn_menu_saveClick(Sender: TObject);
var
 ts, myFileStream : TStream;
begin
 if frm_main.ConnectToSQLServer = False then // Datenbankverbindung herstellen
   Exit;

 ...
 Document := TODocuments(vst_task_documents.GetNodeData(curNode)^);

 ts := DSData.CreateBlobStream(DSData.FieldByName('doc'), bmWrite); 
 try
   ts.Seek(0, soFromBeginning);
   myFileStream := TFileStream.Create(Document.docFileStream, fmShareDenyWrite);
   ts.CopyFrom(myFileStream, myFileStream.Size);
   myFileStream.Free
 except
   on E:Exception Do
   begin
     MessageDlg('Es ist ein Fehler aufgetreten beim Speichern der Dokumente. ' + #13 +
                 E.Message, mtError, [mbOK], 0);
     Exit;
   end;
 end;
 ts.Free;

 DSData.Post;
 DSData.Close;
 frm_main.SQLConnection.Connected := False; // Datenbankverbindung trennen
...
end;

Daten aus DB in das VST laden

Delphi-Quellcode:

procedure Tfrm_task.SQLDataToVST_Documents;
var
 i : Integer;
 Doc : TODocuments;
 taskbook_id : String;
 ts : TStream;
begin
 if frm_main.ConnectToSQLServer = False then // Datenbankverbindung herstellen
   Exit;

 if lbl_task_id.Caption = '' then
   taskbook_id := '-1' // damit nichts ausgewählt und angezeigt wird für neue Auträge
 else
   taskbook_id := lbl_task_id.Caption;

 DSData.Close;
 DSData.CommandText := 'select * from taskbook_documents where taskbook_id = ' + QuotedStr(taskbook_id) + ' order by docType';
 DSData.Open;
 DSData.First;

 vst_task_documents.BeginUpdate;
 vst_task_documents.Clear;
 for i := 0 to DSData.RecordCount - 1 do
 begin
   Doc := TODocuments.Create;
   with Doc do
   begin
     id             := DSData.FieldByName('id').AsString;
     docType        := DSData.FieldByName('docType').AsInteger;
     if DSData.FieldByName('doc').IsBlob then
     begin
       ts           := DSData.CreateBlobStream(DSData.FieldByName('doc'), bmRead);
       doc          := ts;
       ts.Free;
     end;
     docFileStream  := '';
     docFileName    := DSData.FieldByName('docFileName').AsString;
     docExt         := DSData.FieldByName('docExt').AsString;
     docComment     := DSData.FieldByName('docComment').AsString;
   end;
   vst_task_documents.AddChild(nil, Doc);
   DSData.Next;
 end;
 vst_task_documents.EndUpdate;
 DSData.Close;

 frm_main.SQLConnection.Connected := False; // Datenbankverbindung trennen
end;

Doppelklick auf VST, um die Datei(z.B. PDF) anzuzeigen.

Delphi-Quellcode:

procedure Tfrm_task.vst_task_documentsDblClick(Sender: TObject);
var
 Document : TODocuments;
 curNode : PVirtualNode;
 folder : string;
 fileName : String;
 ts : TStream;
 ms: TMemoryStream;
begin
 curNode := vst_task_documents.FocusedNode;
 if not Assigned(curNode) then
 begin
   MessageDlg('Bitte ein Dokument auswählen.',mtInformation, [mbOK], 0);
   Exit;
 end;

 Document := TODocuments(vst_task_documents.GetNodeData(curNode)^);

 fileName := 'c:\'+Document.docFileName+Document.docExt;

 ts := TStream.Create;
 ts.CopyFrom(Document.doc, Document.doc.Size); // ==> hier bricht das Programm ab, siehe Anhang
 ts.Position := 0;

 ms := TMemoryStream.Create;
 ms.LoadFromStream(ts);
 ms.SaveToFile(fileName);

 ms.Free;
 ts.Free;

 folder := ExtractFileDir(fileName);
 ShellExecute(0, 'open', PChar(fileName), nil, PChar(folder), SW_NORMAL );
end;

Wenn ich beim Laden der Daten aus der DB die Routine beim Doppelklick verwende, werden die Dokumente erstellt.

Kann ich nicht aus dem TStream Feld des VST die Datei erstellen?

Die Materie ist neu für mich und ich bin froh, dass ich die Daten speichern und laden kann. Jetzt möchte ich nur noch die Daten in der VST Struktur haben und nur wenn ein Anwender auf das Dokument klick, soll es erzeugt werden.

Danke im Voraus.
Sven

[Lemmy]

hi,

schau mal was in deiner Hilfe zu TStream steht:

Zitat:

TStream ist der Basisklassentyp für Stream-Objekte, die von verschiedenen Speichermedien, wie Dateien auf Festplatten oder dynamischem Speicher usw., lesen oder darauf schreiben können.

Basisklasse heißt verwende für deinen Zweck eine Klasse die den Zweck erfüllt:

Delphi-Quellcode:

procedure Tfrm_task.vst_task_documentsDblClick(Sender: TObject);
var
 Document : TODocuments;
 curNode : PVirtualNode;
 folder : string;
 fileName : String;
 ts : TFileStream;
 ms: TMemoryStream;
begin
 curNode := vst_task_documents.FocusedNode;
 if not Assigned(curNode) then
 begin
   MessageDlg('Bitte ein Dokument auswählen.',mtInformation, [mbOK], 0);
   Exit;
 end;

 Document := TODocuments(vst_task_documents.GetNodeData(curNode)^);

 fileName := 'c:\'+Document.docFileName+Document.docExt;

 ts := TFileStream.Create(fileName, fmCreate);
 ts.CopyFrom(Document.doc, Document.doc.Size); // ==> hier bricht das Programm ab, siehe Anhang
 ts.Free;

 folder := ExtractFileDir(fileName);
 ShellExecute(0, 'open', PChar(fileName), nil, PChar(folder), SW_NORMAL );
end;

Hinweis: So aus dem Kopf ohne Garantie

[Piro]

Leider bricht es immer noch ab.

Ich habe jetzt eine Übergangslösung geschaffen. Wenn ich die Datei brauche, lese ich wieder die DB und hole die Datei und speichere sie direkt nach C:\ zum Beispiel.

Funktioniert super.

Trotzdem wäre ich sehr daran interessiert, wie ich es in meinem VST zwischenspeichern kann und nur bei Bedarf, die Datei aus dem TStream der VST Struktur erstellen kann.

Vielen Dank im Voraus.

Sven

[CarlAshnikov]

Hi,

ich denke hier läuft was falsch:

Delphi-Quellcode:

if DSData.FieldByName('doc').IsBlob then
begin
  ts := DSData.CreateBlobStream(DSData.FieldByName('doc'), bmRead);
  doc := ts;
  ts.Free; 
end;

doc und ts zeigen hier auf den selben Stream und den gibts du danach frei.

[Piro]

Aber doc erhält doch von ts den Inhalt.

Wenn ich ts mit free freimache, sollte das doc doch gar nicht interessieren.

Soweit mein Verständnis. Lasse mich gerne belehren. Es muss ja irgendetwas schief laufen, sonst würde es ja klappen.

Gruß,
Sven