Mysql uden dll

niks

eller den skal lige et sted hvor windows leder efter den, altså et sted på windows searchpath. Så den kan godt bare ligge i system32 eller lign

trist :|
er det muligt at implentere den i exe-filen eller lignende ?

Det ved jeg faktisk ikke, men jeg faldt lige over dette :

http://delphi.about.com/library/weekly/aa021301a.htm

der kan man putter andre former for binary data i en resource fil, så måske der er håb.

Jeg kender godt denne guide. Jeg synes den er omstendig ...

Du vil have en DLL fil inkluderet i din Exe fil, og have den slettet igen når programmet lukker :

Jeg formoder din dll fil hedder MySQL.dll !

1)

Lav et script som det her. fx i notepad :

////// begin rc fil //////

//Name              TYPE            Filename
  MySQL              DLLFILE        MySQL.dll
////// end rc fil //////


Gem det med navnet MySQL.rc

Gem det og din dll fil sammen med dit projekt.

2)
  Tilføj MySQL.rc til dit projekt, og vupti så er DLL filen inde i Exe filen !!!!!

3) FormCreate og FormDestroy :
Så skal vi bare have den pakket ud :

function IsDebuggerAttached: boolean; 
// Small function to detect if a debugger
// is Attached to you exe file
// Copyright : Jens Borrrisholt 2002
asm
  mov eax, fs:[$18]
  mov eax, dword ptr [eax + $30]  // Get the TIB's linear address
  mov eax, dword ptr [eax]        // Get the whole DWORD
  and eax, $00010000              // The 3rd byte is the byte we really need to check for the presence of a debugger. (bit 16)
  shr eax, 16                    // Rotate the result so if debugger is found
                  // eax = 1 else eax = 0 (zero)
end;

procedure ExtractFromRes(ResName : String);
begin
  with TResourceStream.Create(HINSTANCE, Resname, 'DLLFILE') do
  try
    Position := 0;
    SaveToFile(ExtractFilePath(Application.ExeName) + ResName + '.dll');
  finally
    free;
  end;
end;

procedure DeleteDLLFile(const DLLFile : String);
begin
  if IsDebuggerAttached then
    exit;
  DeleteFile(ExtractFilePath(Application.ExeName) + DLLFile);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  ExtractFromRes('MySQL');
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeleteDLLFile('MySQL.dll');
end;
 

Såm du ser benytter jeg mig af et par små hjælpe funktioner, bla IsDebuggerAttached: Der er ikke noger mere irriterende, end når man sidder og debugger, og man så heletiden sletter sin dll fil :-)

Jens B

smart :)

Tak jens, lige hvad jeg manglede :)

kigger lige med