SQL Dateien als Resource einbinden.

[MaBuSE]

Tutorial
SQL-Dateien als Resource einbinden


Autor: MaBuSE für www.delphipraxis.net
Stand: 12.07.2005
(c) 2004-2005, MaBuSE
Das Tutorial wurde mit Delphi 7 getestet
Mein besonderer Dank für die Arbeit in der DP und Unterstützung für mich geht an:
Daniel, Sakura, Gerome und an alle Moderatoren


Warum dieses Turorial?

• Oft soll es vermieden werden SQL Statements als Harccode fest im Programm zu implementieren.
  z.B.:
  
  Delphi-Quellcode:

  Query1.Close;
  Query1.SQL.Text := 'select * from Tabelle';
  Query1.Open;

  Wenn ein SQL Server benutzt wird, bieten sie so genannte StoredProcs an. Das sind Prozeduren, die in der Datenbank liegen und von Delphi aus aufgerufen werden. Leider benutzt jeder SQL Server eine andere Syntax. (Oracle = PLSQL, MS-SQL = Transact SQL, ...) Wenn nun ein Programm für verschiedene SQL-Server geschrieben wird, hat man ein Problem. Die BDE kann z.B. mit verschiedenen SQL Servern umgehen, aber auch nur wenn nur der SQL Umfang benutzt wird den alle SQL Server können. Sobald einige SQL Server spezifischen Spezialitäten verwendet werden, ist es aus mit der Version für alle Server.
  
  Wenn man grundsätzlich kein SQL im Pascal Quelltext haben möchte, bietet sich folgende Lösung an:
  
  Die SQL Statements werden einfach in eine Resource verpackt und dann zur Laufzeit ausgelesen.
  
  Das kann man natürlich analog auch für alle anderen Dateien machen (*.jpg, *.wav, ...)
  
  Da diese Dateien nun im Ordner \Source\SQL zu finden sind, kann man sich sicher sein, das nach Änderungen an den Statements keine vergessen wurden.
  Früher musste man dazu den kompletten Quelltext durchsuchen und auch in alle *.dfm Dateien schauen.

Wie geht das?

• Das ist sehr einfach.
  
  Wir verwenden z.B. folgende Struktur:
  
  X:\Source - hier liegt der Quelltext der Delphianwendung (*.dpr, *.pas, *.dfm, ...)
  X:\Source\SQL - hier liegen die einzubindenden SQL Dateien (*.sql)
  
  Für jede Query wird ein eigenes SQL-File angelegt.
  In unserem Fall:
  • Query01.sql
    (Inhalt: select * from Tabelle01)
  • Query02.sql
    (Inhalt: select * from Tabelle02)
  Wir legen ein neues Projekt an. (Menü: Datei -> Neu -> Anwendung)
  In der Projektverwaltung klicken wir Project1.exe mit rechts an und wählen "Hinzufügen..."
  In dem Hinzufügen Dialog wählen wir in X:\Source\SQL die Datei Query01.sql aus.
  
  In das Delphi Projekt (Project1.dpr) wird nun folgende Zeile hinzugefügt und die SQL-Datei erscheint in der Projektverwaltung.
  {%File 'SQL\Query01.sql'} Ich persönlich schreibe nur die Zeilen in das *.dpr und gehe nicht den visuellen Weg.
  
  Das gleiche machen wir mit der Query02.sql Datei.
  
  Damit sind die Dateien zwar in der IDE dem Projekt zugeordnet, aber der Compiler bindet diese nicht ein.
  
  Dazu muss eine *.res Datei erzeugt werden.
  
  Wir erzeugen eine Textdatei Names X:\Source\SqlDateien.rc
  In diese Datei schreiben wir folgenden Text:
  
  Code:

  // Hier werden die SQL Dateien als Resource eingebunden
  Query01  TEXT  ".\SQL\Query01.sql"
  Query02  TEXT  ".\SQL\Query02.sql"

  Diese Datei binden wir mit einem Rechtsklick in der Projektverwaltung "Hinzufügen..." ein.
  Es wird nun folgende Zeile eingefügt:
  {$R 'SqlDateien.res' 'SqlDateien.rc'} Unsere Project1.dpr sieht nun wie folgt aus:
  
  Delphi-Quellcode:

  program Project1;
  
  {%File 'SQL\Query01.sql'}
  {%File 'SQL\Query02.sql'}
  {$R 'SqlDateien.res' 'SqlDateien.rc'}
  
  uses
    Forms,
    Unit1 in 'Unit1.pas' {Form1};
  
  {$R *.res}
  
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end.

  Wenn nun ein Build (Menü: Projekt -> Project1 erzeugen) aufgerufen wird, wird nach dem Kompilieren in der "linken" Phase das *.rc File in ein *.res File umgewandelt.
  Dieses *.res File wird dann in die Exe eingebunden.
  
  Geschafft!

Super, aber wie kommt man nun wieder an den SQL-Text rann?

• Das ist auch ganz einfach.
  
  In das Form1 legen wir nun 2 TButtons und ein TMemo Feld ab.
  Auf den 1. Button legen wir folgenden Quelltext:
  
  Delphi-Quellcode:

  procedure TForm1.Button1Click(Sender: TObject);
  var
    tmpStream: TResourceStream;
  begin
    tmpStream := TResourceStream.Create( HInstance, 'Query01', 'TEXT' );
    try
      Memo1.Lines.LoadFromStream( tmpStream );
    finally
      tmpStream.Free;
    end;
  end;

  Auf den 2. Button analog dazu diesen Quelltext:
  
  Delphi-Quellcode:

  procedure TForm1.Button2Click(Sender: TObject);
  var
    tmpStream: TResourceStream;
  begin
    tmpStream := TResourceStream.Create( HInstance, 'Query02', 'TEXT' );
    try
      Memo1.Lines.LoadFromStream( tmpStream );
    finally
      tmpStream.Free;
    end;
  end;

  Ich laden den Text hier im Beispiel nur in ein Memo, in Eurem Programm müsst Ihr natürlich etwas in folgender Art schreiben:
  
  Delphi-Quellcode:

  procedure TForm1.Button1Click(Sender: TObject);
  var
    tmpStream: TResourceStream;
  begin
    Query1.Close;
    tmpStream := TResourceStream.Create( HInstance, 'Query02', 'TEXT' );
    try
      Query1.SQL.LoadFromStream( tmpStream );
    finally
      tmpStream.Free;
    end;
    Query1.Open;
  end;

  Natürlich können im SQL Text auch Parameter (z.B. "arName") definiert werden, die dann im TParams Initialisiert und mit folgenden Delphi Quelltext zugewiesen werden können:
  Query1.ParamByName('paramName').AsString := 'blabla';

Anmerkung / Tipps & Tricks

• Problem: Wenn Änderungen an den SQL-Dateien vorgenommen werden, kann es sein, das Delphi das nicht automatisch erkennt und diese Änderungen nicht in das *.res File aufnimmt.
  Lösung: Einfach das *.res File mit den SQL Dateien löschen, es wird dann beim Build ein Neues angelegt. (Im Beispiel ist das SqlDateien.res)

Ich hoffe dieses Tutorial hilft Euch ein wenig...
mfg
MaBuSE