DGL • Thema anzeigen - DLL Functionsproblem

DLL Functionsproblem

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

SM3D

Betreff des Beitrags: DLL Functionsproblem

Verfasst: Di Sep 23, 2003 17:19

DGL Member

Registriert: Mo Sep 22, 2003 19:56
Beiträge: 104
Wohnort: Lübeck, Germany

Hey Leute,,,

ich habe in einer DLL eine Function die den Versionswert giVersion exportieren soll :

---> Der Code aus der DLL :

Code:

// Function zum abrufen der Versionsnummer
function getVersion(giVersion : Integer): Integer;
begin
    giVersion := 1001;
    result := giVersion;
end;
 
// Hier die Exporte
exports
getVersion;

---> Der Code aus der Test Anwendung :

Code:

// Extern Versionsdaten aus der SM3DOGL.DLL
function getVersion(giVersion : Integer): Integer; stdcall;external 'SM3DOGL.DLL';
 
// Daten beim Klick abrufen und eintragen
procedure TForm1.Button1Click(Sender: TObject);
begin
gsVersion :=IntToStr(getVersion(giVersion));
Label3.Caption := gsVersion;
end;

Wenn ich jetzt auf dem Button klicke stürtzt die Anwendung ab, im Debug Modus hat die Variable aber den Wert aus der DLL erhalten. Was mache ich falsch ?

_________________
Gruß Sascha
[SM3D Game Development]

WERBUNG für ein gutes Projekt

Nach oben

Delphic

Betreff des Beitrags:

Verfasst: Di Sep 23, 2003 17:26

DGL Member

Registriert: Do Mai 30, 2002 18:48
Beiträge: 1617

du hast in deiner dll kein stdcall angegeben, aber in einer import unit? warum, dafür gibts keinen grund... entweder in beiden units, um mit anderen programmiersprachen arbeiten zu können, oder in keinen... aber abwechselnd? das muss irgendwo krachen. das würd ich erstmal überprüfen, wenns dann immernoch nicht geht, sag bescheid

Nach oben

SM3D

Betreff des Beitrags:

Verfasst: Di Sep 23, 2003 17:27

DGL Member

Registriert: Mo Sep 22, 2003 19:56
Beiträge: 104
Wohnort: Lübeck, Germany

Stimmt Du hast recht, danke ich ändere das mal ganz fix. Danke.

_________________
Gruß Sascha
[SM3D Game Development]

WERBUNG für ein gutes Projekt

Nach oben

SM3D

Betreff des Beitrags:

Verfasst: Di Sep 23, 2003 17:29

DGL Member

Registriert: Mo Sep 22, 2003 19:56
Beiträge: 104
Wohnort: Lübeck, Germany

JO danke, sowas das ich das übersehen habe... ! Jetzt klappt es .

ps.: Hast Du noch ne Idee wie ich die Versionsnummer im Format :

1.0.0.1 abspeichern kann ? Kriege das nicht hin.

_________________
Gruß Sascha
[SM3D Game Development]

WERBUNG für ein gutes Projekt

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Sep 23, 2003 18:14

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Nimm doch einen stink normalen String. So wie es auch bei OpenGL oder ähnlichen Dingen gemacht ist.
Andernfalls empfielt es sich den in 4 Interger (Byte) Werte aufdröseln. Aber da ist String tausend mal besser.

Nach oben

SM3D

Betreff des Beitrags:

Verfasst: Di Sep 23, 2003 19:32

DGL Member

Registriert: Mo Sep 22, 2003 19:56
Beiträge: 104
Wohnort: Lübeck, Germany

Habe eine Möglichkeit gefunden, zwar auch noch nicht das Non+, aber schon einmal gut. Langsam kommt die Delphi Materie wieder *g*.

Hier der Code :

---> Function zum auslesen

Code:

// Datei Version auslesen
function GetBuildInfo(const AFilename:String; var V1,V2,V3,V4:Word):Boolean;
var
   VerInfoSize  : Integer;
   VerValueSize : DWord;
   Dummy        : DWord;
   VerInfo      : Pointer;
   VerValue     : PVSFixedFileInfo;
begin
  VerInfoSize:=GetFileVersionInfoSize(PChar(AFilename),Dummy);
  Result:=False;
  if VerInfoSize<>0 then begin
    GetMem(VerInfo,VerInfoSize);
    try
      if GetFileVersionInfo(PChar(AFilename),0,VerInfoSize,VerInfo) then begin
        if VerQueryValue(VerInfo,'',Pointer(VerValue),VerValueSize) then
         with VerValue^ do begin
          V1:=dwFileVersionMS shr 16;
          V2:=dwFileVersionMS and $FFFF;
          V3:=dwFileVersionLS shr 16;
          V4:=dwFileVersionLS and $FFFF;
        end;
        Result:=True;
      end;
    finally
      FreeMem(VerInfo,VerInfoSize);
    end;
  end;
end;

---> Dann auf dem Formular ein Label und ein Button und folgender Code

Code:

// Dateiversion auslesen und in label5 eintragen
// Jeweils die 4 Werte (Word) der Versionsnummer und jeweils einen Punkt
// dazu setzen
procedure TForm1.Button3Click(Sender: TObject);
//Variablen
var
V1,V2,V3,V4 : Word; // Hauptversion, Nebenversion, Ausgabe, Compilierung
 
begin
GetBuildInfo('SM3DOGL.DLL', V1, V2, V3, V4);
label5.Caption:=IntToStr(V1) + '.' + IntToStr(V2) + '.' + IntToStr(V3) +
'.' + IntToStr(V4);
 
end;

_________________
Gruß Sascha
[SM3D Game Development]

WERBUNG für ein gutes Projekt

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.