Funktionen aus DLL auslesen

[Robin]

Hi, ich hab ein kl. programm geschrieben, dass aus kleinen Dll´s (max.64kb) die Funktionen ausliest und in einem Meldung ausgibt! Villeicht hilft es euch irgentwie. Ich bin grad an einem Update, damit man größere dll´s auslesen kann.



http://www.purezone.de.vu/downloads/dlltool.zip

[Robin]

Okay, das ging schnell! Ich hab jetzt das ein Update! Jetzt kann man weit aus größere Dll´s laden! URL siehe oben!

[KeyKon]

Toter Link?

KeyKon

[MVXA]

Sry, find das Programm irgendwie... nun ja... ehm... um es kurz und schmerzlos zu sagen: billig. Wie wär es wenn du statt einer Messagebox ein IconListView verwenden würdest? Und wie wäre es, wenn du eine Option anbieten würdest die Funktionen in eine TXT Datei auszulagern?

[Kekskiller]

Naja, ich weiß nicht, ob so ein Tool bei einem solch kleinen Umfang sinnvoll
wäre... Das kann man sich auch mit ein paar Zeilen per Debug zusammen-
schustern. Da find ich den Lib Explorer von meiner Bonsai Ide schon viel schicker ^_^ .

[freedimension]

Nana, jetzt macht sein Programm doch nicht gleich so runter. Das ist wahrscheinlich das erste kompliziertere (mit Binaries usw.) was er geschrieben hat und er freut sich tierisch darüber, nehmt ihm doch nicht die Lust daran.

@Robin: Weiter so , du weißt ja jetzt wo du ansetzen musst

[KeyKon]

Die 1.0-Version ist gemeingefährlich(Zu viele Dll einträge und man kann nicht mehr auf den OK-Knopf drücken )
1.1 ist schon wesentlich besser! Tipps:
-List-Gadget 10Pixel höher
-Eine anzeige welche DLL gerade geladen ist

KeyKon

[Kekskiller]

Code: Alles auswählen

#OpenButton = 0
#FunctionList = 1
Global lastlib$

If OpenWindow(0, 0,0, 320,256, #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget, "Library Explorer")
  If CreateGadgetList(WindowID())
    
    ListIconGadget(#FunctionList, 5,5, 310,223, "Name", 190, #PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines)
      AddGadgetColumn(#FunctionList, 1, "Adresse", 100)
    
    ButtonGadget(#OpenButton, 5,233, 80, 18, "Open")
    
  EndIf
  Repeat
    event = WaitWindowEvent()
    Select event
      Case #PB_Event_Gadget
        Select EventGadgetID()
          Case #OpenButton
            file$ = OpenFileRequester("Select a Library", lastlib$, "Library (*.dll)|*.dll", 0)
            If FileSize(file$) >= 0
              If OpenLibrary(0, file$)
                lastlib$ = file$
                ClearGadgetItemList(#FunctionList)
                ExamineLibraryFunctions(0)
                While NextLibraryFunction()
                  AddGadgetItem(#FunctionList, -1, LibraryFunctionName() + Chr(10) + Str(LibraryFunctionAddress()))
                Wend
                SetWindowTitle(0, GetFilePart(file$) + " - Library Explorer")
              EndIf
            EndIf
        EndSelect
    EndSelect
  Until event = #PB_Event_CloseWindow
EndIf

Vielleicht nützt es was .

[Robin]

Danke für eure Kritik, ich werde an einem weiteren Update arbeiten, in dem eure vorschläge zu finden sind!