Thema: Delphi Ressourcen-DLL-Experte

Einzelnen Beitrag anzeigen

Benutzerbild von Evian
Evian

Registriert seit: 10. Apr 2003
Ort: Berlin
485 Beiträge
 
Delphi 6 Professional
 
#30

Re: Ressourcen-DLL-Experte

  Alt 17. Okt 2003, 13:10
Mh.. die Struktur ist ganz einfach ... alle 1373 Dateien sind in einem Verzeichniss.

Hier mal ein Teil der *.rc Datei:

Code:


77img2.gif IMAGES "77img2.gif"
78img0.gif IMAGES "78img0.gif"
78img2.gif IMAGES "78img2.gif"
79img0.gif IMAGES "79img0.gif"
82img2.jpg IMAGES "82img2.jpg"
82img3.jpg IMAGES "82img3.jpg"
82img4.jpg IMAGES "82img4.jpg"
82img5.jpg IMAGES "82img5.jpg"
84img0.gif IMAGES "84img0.gif"
85img1.jpg IMAGES "85img1.jpg"
86img0.gif IMAGES "86img0.gif"
87img0.gif IMAGES "87img0.gif"
88img1.gif IMAGES "88img1.gif"
89img0.gif IMAGES "89img0.gif"
90img0.jpg IMAGES "90img0.jpg"
91img1.gif IMAGES "91img1.gif"
92img0.gif IMAGES "92img0.gif"
93img0.jpg IMAGES "93img0.jpg"
96img0.gif IMAGES "96img0.gif"
agbs.php.htm HTML "agbs.php.htm"
approved_aaa.gif IMAGES "approved_aaa.gif"
BMFSFJ.gif IMAGES "BMFSFJ.gif"
BMFSFJ_klein.gif IMAGES "BMFSFJ_klein.gif"
erweiterteSucheKatScreensho.jpg IMAGES "erweiterteSucheKatScreensho.jpg"
erweiterteSucheKreuzScreens.jpg IMAGES "erweiterteSucheKreuzScreens.jpg"
favicon.ico IMAGES "favicon.ico"
functions.js HTML "functions.js"
galerie.php.htm HTML "galerie.php.htm"
galerie.php_pid=102.htm HTML "galerie.php_pid=102.htm"
galerie.php_pid=106.htm HTML "galerie.php_pid=106.htm"
galerie.php_pid=109.htm HTML "galerie.php_pid=109.htm"
galerie.php_pid=113.htm HTML "galerie.php_pid=113.htm"
galerie.php_pid=147.htm HTML "galerie.php_pid=147.htm"
galerie.php_pid=152.htm HTML "galerie.php_pid=152.htm"
galerie.php_pid=210.htm HTML "galerie.php_pid=210.htm"
galerie.php_pid=211.htm HTML "galerie.php_pid=211.htm"
galerie.php_pid=213.htm HTML "galerie.php_pid=213.htm"
galerie.php_pid=244.htm HTML "galerie.php_pid=244.htm"
galerie.php_pid=245.htm HTML "galerie.php_pid=245.htm"
galerie.php_pid=256.htm HTML "galerie.php_pid=256.htm"
galerie.php_pid=261.htm HTML "galerie.php_pid=261.htm"
galerie.php_pid=264.htm HTML "galerie.php_pid=264.htm"
galerie.php_pid=269.htm HTML "galerie.php_pid=269.htm"
galerie.php_pid=270.htm HTML "galerie.php_pid=270.htm"
galerie.php_pid=50.htm HTML "galerie.php_pid=50.htm"
galerie.php_pid=67.htm HTML "galerie.php_pid=67.htm"
galerie.php_pid=77.htm HTML "galerie.php_pid=77.htm"
galerie.php_pid=78.htm HTML "galerie.php_pid=78.htm"
galerie.php_pid=82.htm HTML "galerie.php_pid=82.htm"
glossar.php.htm HTML "glossar.php.htm"
glossar.php_gid=1.htm HTML "glossar.php_gid=1.htm"
glossar.php_gid=100.htm HTML "glossar.php_gid=100.htm"
glossar.php_gid=101.htm HTML "glossar.php_gid=101.htm"
...ich denke mal, dass das die selbe Formatierung ist,
nur bei js und bei ico bin ich mir nicht ganz sicher.

Hier mein code mit dem ich die rc Datei erzäuge:

Code:

Procedure Getallfiles(dir: string);
var
  rec: TSearchRec;
  found: Integer;
  s, s2 : String;
begin
  anzahl := 0;
  if dir[Length(dir)] <> '\' then dir := dir + '\';
  found := FindFirst(dir + '*.*', faAnyFile, rec);
  while found = 0 do
  begin
    s := '';
    s2 := '';
    s2 := rec.Name;
    s := s + s2[length(s2) - 2];
    s := s + s2[length(s2) - 1];
    s := s + s2[length(s2) - 0];
    IF s = 'htm' THEN
    Form1.ListBox1.Items.Append(rec.Name + ' HTML "'+ rec.name +'"');
    IF s = 'css' THEN
    Form1.ListBox1.Items.Append(rec.Name + ' HTML "'+ rec.name +'"');
    IF s = 'jpg' THEN
    Form1.ListBox1.Items.Append(rec.Name + ' IMAGES "'+ rec.name +'"');
    IF s = 'gif' THEN
    Form1.ListBox1.Items.Append(rec.Name + ' IMAGES "'+ rec.name +'"');
    IF s = 'ico' THEN
    Form1.ListBox1.Items.Append(rec.Name + ' IMAGES "'+ rec.name +'"');
    IF s = '.js' THEN
    Form1.ListBox1.Items.Append(rec.Name + ' HTML "'+ rec.name +'"');

    inc(anzahl);
    found := FindNext(rec);
  end;
  FindClose(rec);
  Form1.Label1.Caption := inttostr(anzahl) + ' Dateien';
end;

Wenn ich die die rc Datei habe, dann kopiere ich sie, die rc.exe und die RcDll.Dll in das verzeichniss, wo die HTML Seiten sind und geb in die Console(wenn ich im Websiteverzeichniss bin) ein:

Code:
rc meinerc.rc
und dann macht das Gute Programm mir eine meinerc.res

Dann mach ich mit dem Editor eine Datei mit dem Inhalt:

CODE]
library Project2;


uses
SysUtils,
Classes;

{$R meinerc.res}

begin
end.
[/CODE]

...und compiliere sie, wobei dann eine schöne Datei namens meinerc.dll entsteht...
und die kann ich mir dann per:

Code:
res://c:\meinerc.dll/index.htm )
im IE oder TWebbrowser aufrufen, nur das eben keine Bilder angezeigt werden.
-> www.Phillsoft.de

Ich bin nun Mathematiker, aber meine Freundin bleibt trotzdem unberechenbar!
  Mit Zitat antworten Zitat