BlobStream in StringGrid speichern

[Smiley]

Wenn ich ein DBGrid nehme muss ich die Datenbank ja immer offen halten, wenn ich mit den Daten arbeiten will.
Das Ziel ist aber die Datenbank nach dem lesen der Daten so schnell wie möglich wieder zu schließen.
Wenn alle Datensätze gelesen sind kann ich ohne DBGrid die Verbindung lösen und lokal im Grid arbeiten bis mal etwas geändert wird, was selten vorkommt.
Was nicht verbunden ist, kann nicht kaputt gehen. (Single user DB).

[Smiley]

@tewes
Das speichern ins Grid habe ich jetzt so gemacht:

Code:

lGrid.Objects[Col, Row] := AktData.JpegArray[0];

Wenn ich es aber wieder aus dem Grid rausholen will und in das JPegArray[0] schreiben will muss ich noch den ObjectTyp casten
Das hier geht nicht:

Code:

JpegArray[0].Assign(lGrid.Objects[5,lGrid.Row]);

Inkompatible Typen TPersistent und Object

Wie schreibe ich das richtig?

[tewes]

JpegArray[0].Assign(TjpegImage(lGrid.Objects[5,lGrid.Row]));

[MyRealName]

Zitat von Smiley:

Wenn ich ein DBGrid nehme muss ich die Datenbank ja immer offen halten, wenn ich mit den Daten arbeiten will.
Das Ziel ist aber die Datenbank nach dem lesen der Daten so schnell wie möglich wieder zu schließen.
Wenn alle Datensätze gelesen sind kann ich ohne DBGrid die Verbindung lösen und lokal im Grid arbeiten bis mal etwas geändert wird, was selten vorkommt.
Was nicht verbunden ist, kann nicht kaputt gehen. (Single user DB).

MemoryDatasets wie TFDMemTable (FireDac Memtable).. da liest Du die ganzen records rein und funktioniert wie das Query selbst, aber ohne DB-Anbindung.
Das geht dann auch mit nur 1 Zeile Code, in dem Fall

Code:

FDMemtable1.CopyDataset(FDQuery1, [coAppend,coRestart,coStructure]);

Wobei die coXXXX halt sehen musst, was Du da brauchst. UniDAC etc. haben solche MemoryDataSets auch, falls Du kein FireDAC hast

[Jumpy]

Zitat von Smiley:

Wenn ich ein DBGrid nehme muss ich die Datenbank ja immer offen halten, wenn ich mit den Daten arbeiten will.
Das Ziel ist aber die Datenbank nach dem lesen der Daten so schnell wie möglich wieder zu schließen.
Wenn alle Datensätze gelesen sind kann ich ohne DBGrid die Verbindung lösen und lokal im Grid arbeiten bis mal etwas geändert wird, was selten vorkommt.
Was nicht verbunden ist, kann nicht kaputt gehen. (Single user DB).

Ich will das jetzt nicht empfehlen, in Zeiten von ORM und Co. ist ja das Arbeiten mit den DB-Controls etwas "out", aber das Obige wäre genau das Szenario, wofür das TClientDataset gedacht ist.

[Smiley]

@tewes
Danke für die Syntax.

@MyRealName
Richtig FdMemtable wäre eine gute Idee, daran habe ich gar nicht mehr gedacht.
Ich habe FireDAC,UniDAC und TMS.
Was nehmen wir denn Heute?

@Jumpy
Deine Antwort ist für mich nicht ganz eindeutig, was du aussagen möchtest.
"Ich will das jetzt nicht empfehlen" meintest du meine Idee das mit einem Stringgrid zu machen ?
"in Zeiten von ORM und Co. ist ja das Arbeiten mit den DB-Controls etwas out" kannst du das näher erläutern ?

Mit den DB-Controls hatte ich im letzten Projekt einige Schwierigkeiten, da ich im Event DataSetChange versucht habe dort die FormularAktualisierung aufzurufen und dabei einige Probleme hatte, da er dort nicht nur beim wechseln des Datensatzes dort reinspringt.
Hab ich da eventuell den falschen Event benutzt?

[MyRealName]

Zitat von Smiley:

@MyRealName
Richtig FdMemtable wäre eine gute Idee, daran habe ich gar nicht mehr gedacht.
Ich habe FireDAC,UniDAC und TMS.
Was nehmen wir denn Heute?

UniDAC mit VirtualTable. Warum ? Weil Du VirtualQueries drüber machen kannst mit JOINS auf andere Datasets Um es jugendfei zu halten will ich gar nicht sagen, wie geil das ist

[Smiley]

Zu VirtualQueries habe ich auf die schnelle keine Beispiele gefunden wofür man das einsetzen kann.
Hast du da etwas BeispielCode um zu sehen was das bringt?

Ist aber für das jetzige Projekt denke ich nicht nötig, da ich nur eine Tabelle habe und 1 bis 100 Datensätze pro ID, die ich dann in ein Memtable einlesen könnte.

Kann ich mein JPegArray[0..119] direkt in ein BlobFeld speichern und wieder rausbekommen by fdMemtable, wie wäre da die Syntax?

[MyRealName]

Zitat von Smiley:

Zu VirtualQueries habe ich auf die schnelle keine Beispiele gefunden wofür man das einsetzen kann.
Hast du da etwas BeispielCode um zu sehen was das bringt?

Ist aber für das jetzige Projekt denke ich nicht nötig, da ich nur eine Tabelle habe und 1 bis 100 Datensätze pro ID, die ich dann in ein Memtable einlesen könnte.

Bei einem TVirtualQuery fügt man einfach Datensätze hinzu und gibt ihnen einen Namen und dann macht man in die SQL-Property das SQL was diese Datensatz-Namen als Tabellen-Aliase nutzt.
Zum Bsp.

Query1 Tabelle Kunden -> vQuery Alias Ku
Query2 Tabelle Kunden_Wohnort -> vQuery Alias Ku_wo

SQL.Text := SELECT Ku.*, Ku_wo.Stadt FROM Ku left join Ku_wo on (Ku_wo.Id=Ku.Id)

Das ist jetzt aus dem Gedächtnis, ich hab das bestimmt 3 Jahre nicht mehr gemacht, weil ich in meinem aktuellen Job nur noch mit FireDAC arbeiten (muss).
Die Query1 und Query2 können MemTables sein, oder TTable oder FDQuery, alles was von TDataSet abgeleitet ist. Du kannst da auch frei mixen.
SQL ist Sqlite in memory.

Zitat von Smiley:

Kann ich mein JPegArray[0..119] direkt in ein BlobFeld speichern und wieder rausbekommen by fdMemtable, wie wäre da die Syntax?

Das geht über die CreateBlobStream funktion
Hier ist das ofizielle Beispiel.

[Smiley]

Ich komme mit dem Beispiel von Embarcadero einfach nicht weiter.

Hier der BeispielCode:

Code:

{-------------------------------------------------------------------------------}
procedure TfrmBlobStr.btnInsertInternalClick(Sender: TObject);
var
  oFS: TFileStream;
begin
  // All Real BLOB Streaming operations must be performed in a transaction.
  FDConnection1.StartTransaction;
  try
    case FDConnection1.RDBMSKind of
    TFDRDBMSKinds.PostgreSQL:
      qInsert.SQL.Text := 'insert into {id FDQA_LO} (blobdata) values (:blobdata)';
    TFDRDBMSKinds.Oracle:
      qInsert.SQL.Text := 'insert into {id FDQA_Blob} (blobdata) values (EMPTY_BLOB()) returning blobdata into :blobdata';
    else
      qInsert.SQL.Text := 'insert into {id FDQA_Blob} (blobdata) values (:blobdata)';
    end;
    // Set parameter data type ftStream and do not assign stream reference.
    // The internal stream reference will be returned after ExecSQL.
    // The internal stream does not perform any conversion (eg, character set).
    qInsert.Params[0].DataType := ftStream;
    qInsert.Params[0].StreamMode := smOpenWrite;
    qInsert.ExecSQL;

    oFS := TFileStream.Create(C_File, fmOpenRead);
    try
      // Write to internal stream. The stream is available after ExecSQL.
      qInsert.Params[0].AsStream.CopyFrom(oFS, -1);
    finally
      oFS.Free;
    end;
    // Flush / close the streams. Mandatory for ODBC-based, InterBase and
    // Firebird, MySQL drivers. Optional for other drivers (does nothing).
    qInsert.CloseStreams;
    Log('BLOB is written - internal streaming');

    ShowData;
    Log('BLOB is shown');
    FDConnection1.Commit;
  except
    FDConnection1.Rollback;
    raise;
  end;
end;

Was bedeutet das {id FDQA_Blob} im SQL-String und (blobdata), muss da nicht der Name des BlobFeldes rein?
Außerdem wird hier mit FileStream gearbeitet und nicht mit MemStream. Ich schreibe mein JPGArray, das ich im Speicher habe doch nicht erst auf die Platte um es dann in den Datensatz zu bekommen.

Angenommen ich habe eine Firebird Datenbank in der alle Daten liegen und einen MemTable in den ich alle Bilddaten der aktuellen ID halte. Felder ID,JPGPic.
In JPGPic soll mein JPegArray[0..119] rein. In dem ist entweder 1 Bild in JPegArray[0] oder 120 Bilder drin.

Ob ftMemTable geht ist noch fraglich, da hier in den Bemerkungen steht:
// The following drivers support Real BLOB Streaming:
// - SQLite (only external streams)
und fdMemtable ist doch SQLite.
Geht das dann überhaupt?
Oder ist Real Blob Streaming hier nicht nötig?