Datenbank für schnelle Bilder, Vorschläge bitte.

[Delphi.Narium]

Der Name soll hier wohl als eindeutiger Identifizierer dienen, der unveränderlich ist. CRC kann sich datenabhängig ändern. Von daher kann die Abfrage nicht

select BILD1, BILD2 from project where NAME = :name and CRC = :CRC;

lauten (da hier bei geänderten Daten und damit geänderter CRC nicht gefunden wird), sondern nur

select BILD1, BILD2, CRC from project where NAME = :name;

Wenn dann die gefundene CRC von der im Programm berechneten abweicht, müssen die Bilder neu erstellt werden.

Ungefähr sowas:

Delphi-Quellcode:

// Einmalig irgendwo vor der ersten Benutzung der Querys;
QueryCRC.SQL.Text := 'select CRC from project where NAME = :name';
QueryCRC.Params.ParamByName('NAME').DataType := ftString;
QueryCRC.Prepare;

QueryBilder.SQL.Text := 'select Bild1, Bild2 from project where NAME = :name';
QueryBilder.Params.ParamByName('NAME').DataType := ftString;
QueryBilder.Prepare;

QueryUpdate.SQL.Text := 'update project set CRC = :CRC, Bild1 = :Bild1, Bild2 = :Bild2 where NAME = :name';
QueryUpdate.Params.ParamByName('NAME').DataType := ftString;
QueryUpdate.Params.ParamByName('CRC').DataType := ftWord;
QueryUpdate.Params.ParamByName('Bild1').DataType := ftWasAuchImmer;
QueryUpdate.Params.ParamByName('Bild2').DataType := ftWasAuchImmer;
QueryUpdate.Prepare;


// In der Routine, die für die Anzeige der Bilder verantwortlich ist:
MeineCRCWordVariable := BerechneIrgendwieCRCAusAktuellenDaten(MeineNameVariable);
QueryCRC.Params.ParamByName('NAME').Value := MeineNameVariable;
QueryCRC.Open;
if QueryCRC.RecordCOunt = 0 then begin
  // Neuen Datensatz anlegen.
end else
if QueryCRC.FieldByName('CRC').AsInteger <> MeineCRCWordVariable then begin
  QueryUpdate.Params.ParamByName('CRC').Value := MeineCRCWordVariable;
  QueryUpdate.Params.ParamByName('Bild1').Value := IrgendwieBild1Berechnen(MeineNameVariable);
  QueryUpdate.Params.ParamByName('Bild2').Value := IrgendwieBild2Berechnen(MeineNameVariable);
  QueryUpdate.ExecSQL;
end;
QueryCRC.Close;

QueryBilder.Params.ParamByName('NAME').Value := MeineNameVariable;
QueryBilder.Open;
Bild1Anzeigen(QueryBilder.FieldByName('Bild1').Value);
Bild2Anzeigen(QueryBilder.FieldByName('Bild2').Value);
QueryBilder.Close;

Um auf Änderungen der Daten reagieren zu können, würd' ich als CRC 'ne MD5-Checksumme nehmen, damit kann man dann auf Änderungen reagieren und auch eine Eindeutigkeit (soweit überhaupt erforderlich, da bereits über den Namen gegeben) sicherstellen.


Ok, das hat sich wohl erledigt, da der letzte Beitrag von KodeZwerg genau das bereits verbal beschreibt.