MySQL-Header

[Schorschi5566]

Hallo Himitsu,

wenn man jetzt noch einen Mechanismus für die Memory-loaded-DLL einbaut, ist's doch schon fast perfekt.

Bei mysql.pas habe ich es so reinoperiert...

Delphi-Quellcode:

var
  libmysql_handle: HMODULE = 0;
  libmysql_mem_handle: PBTMemoryModule = nil;
  libmysql_mem_buffer : Pointer;
  libmysql_in_memory : Boolean;

.
.
.

// Load library from Ressource into Memory. Internal Resname = libmysql
procedure libmysql_mem_load(name : PChar);

.
.
.

procedure libmysql_mem_load(name : PChar);
var
  ms : TMemoryStream;
  rs : TResourceStream;
  m_DllDataSize : Int64;
begin
  if libmysql_mem_handle = nil then
  begin
    if 0 <> FindResource(hInstance, 'libmysql', RT_RCDATA) then
    begin
      rs := TResourceStream.Create(hInstance, 'libmysql', RT_RCDATA);
      ms := TMemoryStream.Create;
      try
        ms.LoadFromStream(rs);
        ms.Position := 0;
        m_DllDataSize := ms.Size;
        libmysql_mem_buffer := GetMemory(m_DllDataSize);
        ms.Read(libmysql_mem_buffer^, m_DllDataSize);
      finally
        ms.Free;
        rs.Free;
      end;
      if libmysql_mem_buffer <> nil then
      begin
        libmysql_mem_handle := BTMemoryLoadLibary(libmysql_mem_buffer, m_DllDataSize);
        if libmysql_mem_handle = nil then
        begin
          internal_libmysql_status := LIBMYSQL_MISSING;
          raise Exception.CreateFmt(ELibraryNotFound, [name]);
        end
        else
        begin
          libmysql_in_memory := True;
          internal_libmysql_ClientVersion := mysql_get_client_version;
          if internal_libmysql_ClientVersion >= mysql_not_compatible_version then
          begin
            internal_libmysql_status := LIBMYSQL_INCOMPATIBLE;
            raise Exception.CreateFmt(sLibMySql_Version_Incompatible, [mysql_get_client_info]);
          end
          else
            internal_libmysql_status := LIBMYSQL_READY;
        end;
      end;
    end;
  end;
end;

procedure libmysql_free;
begin
  if libmysql_handle <> 0 then
    FreeLibrary(libmysql_handle);
  libmysql_handle := 0;
  if libmysql_mem_handle <> nil then
  begin
    BTMemoryFreeLibrary(libmysql_mem_handle);
    FreeMemory(libmysql_mem_buffer);
  end;
  libmysql_mem_handle := nil;
  libmysql_in_memory := False;
  internal_libmysql_status := LIBMYSQL_UNDEFINED;
  FinalizeLibmysql;
end;

procedure LoadProcAddress(var proc: FARPROC; name: PAnsiChar);
var
  ModulPath: String;
begin
  if proc = nil then
  begin
    if (libmysql_handle = 0) and (libmysql_mem_handle = nil) then
      raise Exception.Create(sLibMySql_Undefined);
    proc := GetProcAddress(name);
    if proc = nil then
    begin
      internal_libmysql_status := LIBMYSQL_INCOMPATIBLE;
      SetLength(ModulPath, MAX_PATH);
      SetLength(ModulPath, GetModuleFileName(libmysql_handle,
          Pointer(ModulPath), MAX_PATH));
      raise Exception.CreateFmt(EProcNotFound, [name, ModulPath])
    end;
    PushProc(@proc);
  end;
end;

function GetProcAddress(lpProcName: LPCSTR): FARPROC; overload;
begin
  if libmysql_in_memory then
    result := BTMemoryGetProcAddress(libmysql_mem_handle, lpProcName)
  else
    result := GetProcAddress(libmysql_handle, lpProcName);
end;

Dann habe ich noch die alten Aufrufe von GetProcAddress durch die neuen ersetzt. Das war's.

Verwendet habe ich die Unit BTMemoryModule von Martin Offenwanger. Hier!



Grüße,
Uwe

[himitsu]

Ich bin jetzt erstmal das ganze MySQL 5.4 durch und hab da nochmal nach Änderungen geschaut.
MySQL 6.0 kann man nicht schon jetzt einbauen, da sie die API zurückgezogen haben, da sich dort, in der Alpha- oder Betaphase (k.A. wo die genau waren), schon längere Zeit nichts mehr getan hat sie sich aktuell wieder mehr auf MySQL 5.5+ konzentrieren (seit MySQL 5.3 sind ja auch schon viele ehemals für die 6.0er gedachte Teile enthalten.) (MySQL 6.0 ist also erstmal tot)

Nun werd ich nochmal die Units etwas aufräumen, die statische Variante wird vernichtet, da zuviele DLLs im Umlauf schon, wo schon grundlegende Funktionen fehlen oder fehlerhaft sind

siehe da:
http://www.delphipraxis.net/148076-m...ml#post1039788
in der Clientversion heißt es 0.0.0, in der ClientInfo steht zumindestens was von 5.0 (als String) und einige solcher DLLs besitzen nichtmal 'nen Expor für die ClientVersion (ich brauch also nur noch meine Ersatzfunktion/Umleitung etwas ausbauen)

und danach wende ich mich mal an die DLL-Sache ran, mit 'ner kleinen Erweiterung, damit man die DLL auch leichter austauschen kann, um weniger Probleme mit dieser blöden GPL-Variante zu bekommen.

[Schorschi5566]

Hallo Himitsu,

ich habe mit der 5.1.49 getestet. Die hat das auch so mit mysql_get_client_info ausgespuckt (also 50149). Die DLL habe ich mir von einer aktuellen Serverversion genommen.

Ich hänge mal die mysql_wrapper.pas an, die ich derzeit verwende. Da habe ich die Funktionalität für die RES-DLL schon drin. Die enthaltene DLL (in libmysql.res) ist mit UPX gepackt, also nicht wundern, dass die so klein ist.


Grüße,
Uwe

[himitsu]

Einen ganzen Satz an libmysql's hatte ich hier schonmal irgendwo verlinkt (in 'nem anderem Thread).
hier nochmal der Link www.FNSE.de/DL/libmysql.7z (sind ~33 MB)

Dort ist auch eine generierte RTF, bzw eine XLS, mit den Exporten der ganzen DLLs.


so, genug PHP für heute, deinen Anhang schau ich mir morgen an
und jetzt schlaft schön