AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zugriff auf DLL aus DPR-File

Ein Thema von slemke76 · begonnen am 10. Apr 2005 · letzter Beitrag vom 10. Apr 2005
 
slemke76

Registriert seit: 29. Mär 2005
Ort: Quakenbrück
146 Beiträge
 
#4

Re: Zugriff auf DLL aus DPR-File

  Alt 10. Apr 2005, 12:46
Hi!

So, habe das in der DPR wie folgt gemacht :

Delphi-Quellcode:
program sampleprg;

uses
  Windows, Controls, Dialogs,
  Forms,
  MainUnit in 'MainUnit.pas{Mainform};

const
  dllname = 'SetupDlg.dll';
  URL ='http://beispiel.url/test.php';

// --- für DLL ---
type
  TFNSetupDlgShowModal = function(parent: Pointer; getURL: PChar): Integer; stdcall;

var
  setupsuccess: integer;
  lib: HMODULE;
  SetupDlgShowModal: TFNSetupDlgShowModal = nil;
// ---------------

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Beispiel DLL Prog';
  // --- DLL laden & ausführen ---
  lib := LoadLibrary(@dllname[1]);
  if lib <> 0 then @SetupDlgShowModal := GetProcAddress(lib, 'SetupDlgShowModal');
  if Assigned(SetupDlgShowModal) then setupsuccess:=SetupDlgShowModal(nil, PChar(URL))
  else begin
    MessageDlg('DLL "SetupDlg.dll" konnte nicht geladen werden !',mtError,[mbOk],0);
    setupsuccess:=mrCancel;
  end;
  if setupsuccess=mrOK then begin
  // -----------------

    Application.CreateForm(TMainform, Mainform);
    Application.Run;

  // --- DLL entladen ---
  end;
  if lib <> 0 then FreeLibrary(lib);
  // --------------------
end.
Kann man das so machen ?????
Funktionieren tut es, aber das heisst ja nix

lg
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz