[Andorra] seltsamster Fehler bei AdDraw.dllname:='xy.dll'

[Spiderpig_GER_15]

ja, denke ich schon:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdPerCounter := TAdPerformanceCounter.Create;

  AdDraw := TAdDraw.Create(self);
  AdDraw.DllName := ExtractFilePath(ParamStr(0)) + 'andorraOGL.dll';

  if AdDraw.Initialize then
  begin
    Application.OnIdle := Idle;
    AdImageList := TAdImageList.Create(AdDraw);
    with AdImageList.Add('tank_red') do
    begin
      Texture.LoadGraphicFromFile('tank_red.bmp',true,clFuchsia);

    end;
    AdImageList.Restore;

    angle:= 0;

  end
  else
  begin
    ShowMessage('Error while initializing Andorra 2D. Try to use another display '+
                'mode or another video adapter.');
    Close;
  end;
end;

[igel457]

Und die Fehlermeldung wird hier geworfen?

Delphi-Quellcode:

procedure TAdDllLoader.LoadLibrary(afile: string);
var
  InfoProc: TAndorra2DLibraryInformation;
begin
  if FileExists(afile) then
  begin
    //If a library is already loaded, unload it
    if LibraryLoaded then
      UnLoadLibrary;
 
    {$IFDEF Win32}
    DllHandle := Windows.LoadLibrary(PChar(afile)); //<-- Hier
    {$ELSE}
    DllHandle := dynlibs.LoadLibrary(PChar(afile));
    {$ENDIF}

[Spiderpig_GER_15]

Delphi-Quellcode:

procedure TAdDllLoader.LoadLibrary(afile: string);
var
  InfoProc:TAndorra2DLibraryInformation;
  AbilitiesProc:TAndorra2DLibraryAbilities;
begin
  if fileExists(afile) then
  begin
    if LibraryLoaded then
    begin
      UnLoadLibrary;
    end;
    {$IFDEF Win32}
      DllHandle := Windows.LoadLibrary(PChar(afile));
    {$ELSE}
      DllHandle := dynlibs.LoadLibrary(PChar(afile));  
    {$ENDIF}
    if LibraryLoaded then
    begin
      @CreateApplication := GetProcAddress(DllHandle, 'CreateApplication');

      //Get information
      @InfoProc := GetProcAddress(DllHandle, 'Andorra2DLibraryInformation');
      InfoProc(LibInfo);

      //Get abilities
      @AbilitiesProc := GetProcAddress(DllHandle, 'Andorra2DLibraryAbilities');
      AbilitiesProc(LibAbilities);  //<=== Hiernach
   end;
end;

[igel457]

Du hast eine veraltete Version des Andorra 2D Quellcodes. Die aktuelle Version sieht so aus: http://andorra.cvs.sourceforge.net/v...14&view=markup

Die "Abilities"-Funktion gibt es nicht mehr - die heißt jetzt "Properties".

[Namenloser]

Zitat:

Zitat von NamenLozer

Haben die DLLs die gleiche Version wie die eingebundenen Units?

Was hab ich gesagt... :mrgreen:

[Spiderpig_GER_15]

bin schon am Austauschen, das kam mir auch komisch vor das du da was anderes stehen hast *hope* :D

[igel457]

Zitat:

Zitat von NamenLozer

Zitat:

Zitat von NamenLozer

Haben die DLLs die gleiche Version wie die eingebundenen Units?

Was hab ich gesagt... :mrgreen:

Tja, die neuen Versionen (ab 0.4) meckern mit einer entsprechenden Inkompatibilitäts-Fehlermeldung. Seine Version scheint also etwas älter zu sein.

[Spiderpig_GER_15]

Jetzt will ich aber acuh alles richtig machen, auf welche Ornder muss ich alles die Library Verlinkung machen?

[Spiderpig_GER_15]

Okay, hab alles, geht, dankeeeee

Hab die neue Version genommen dann klappt alles!