DLL Integration kürzen

[hedie]

Hallo

Durch diese vielen externals verursacht mein Programm bei start während 3 Sekunden 90% Systemauslastung

Gibts ne möglichkeit das zu Minimieren?
Und isses möglich den Code zu kürzen in dem man gleiche dll verlinkungen zusammen fasst?

danke schonmal

Delphi-Quellcode:

procedure addtemp(filename:string);stdcall;
external 'db_main.dll';
function savedbvideo(dbcount:Integer;Titel,Lenght,Bitrate,path:tstrings):boolean;stdcall;
external 'db_main.dll';
function additem(Name,Path,Interpret:string):boolean;stdcall;
external 'db_main.dll';
function savedb(dbcount:Integer;Name,Path,Interpret:tstrings):boolean;stdcall;
external 'db_main.dll';
function inifnset(Filename :String):integer;stdcall;
external 'db_main.dll';
function ID3(Filename:string):Tstrings;stdcall;
external 'ax_main.dll';
function listdbn():tstringlist;stdcall;
external 'db_main.dll';
function listdbp():tstringlist;stdcall;
external 'db_main.dll';
function listdbi():tstringlist;stdcall;
external 'db_main.dll';
procedure omp(filename:string);stdcall;
external 'ax_main.dll';
function mpeg(Filename:string):Tstrings;stdcall;
external 'ax_main.dll';
function additemvideo(Titel,Lenght,Bitrate,path:string):boolean;stdcall;
external 'db_main.dll';
function inifnsetvideo(Filename :String):integer;stdcall;
external 'db_main.dll';
function listdbvt():tstringlist;stdcall;
external 'db_main.dll';
function listdbvl():tstringlist;stdcall;
external 'db_main.dll';
function listdbvb():tstringlist;stdcall;
external 'db_main.dll';
function listdbvp():tstringlist;stdcall;
external 'db_main.dll';
function saveid3(descriptions:tstrings):boolean;stdcall;
external 'ax_main.dll';
function updsection(section:integer;setings:tstrings):boolean;stdcall;
external 'db_main.dll';
function listdbb():tstringlist;stdcall;
external 'db_main.dll';

[sirius]

1. Zusammenfassen? Nicht das ich wüsste.
2. Was stört dich an einer kurzen Systemauslastung von 90%, wenn nun mal 3 DLLs geladen werden müssen. Vielleicht solltest du überlegen, ob du in den DLLs nicht auf RTL (bzw. auch noch VCL) verzichten kannst, damit die DLLs kleiner werden. Aber bis jetzt hast du ja sogar noch 10% Reserve.
3. Als Rückgabewert eine TStringlist? Wie geht denn das? Und falls dies mit Sharemem funktionieren sollte, muss ja auch noch die Sharemem geladen werden, keine Ahnung wieviel System-Ressourcen das benötigt. Sowas versuche ich lieber zu umgehen.

4. Alternativ kannst du die DLLs auch dynamisch laden:
- LoadLibrary und FreeLibrary
- und dazu GetProcAddress

[Bernhard Geyer]

Ich glaube nicht das es die Anzahl der hart gebundenen Funktionen sind. Ich würde tippen diese benötigen für 0.0001 Sekunden 100% Rechenzeit. Die Bremse liegt woanders (z.B. was schon sirius angeführt hat)

[QuickAndDirty]

@sirius
Man kann Stringlisten hin und her übergaeben dank dem Sharemem.
Was nicht geht ist der Is operator also auch nicht assign, auf der falschen Seite.
Assign wäre mit zum Teil durch clear; AddStrings(bla); ersetzbar.

@Threadsteller:
Versuch sie wie vorgeschlagen dynamisch ein zu binden.
und Teste das doch mal mit DLLs die nur leere Funktionen zu verfügung stellen
und sonst keine Rescourcen nutzen. Vielleicht liegt das "Problem" ja in einer der DLLs.

[Luckie]

Zitat:

Zitat von QuickAndDirty

@sirius
Man kann Stringlisten hin und her übergaeben dank dem Sharemem.

Ich bin mir ziemlich sicher, dass unser Stern am Nachthimmel das weiß. ;) Er hat ja selber auf Sharemem hingewiesen.

[hedie]

Danke für die Antworten

Ja ShareMem wird verwendet...

Im bereich VCL und RTL bin ich noch ein wenig neu.

Was genau ist die VCL bei einer DLL und die RTL?

Und wie kann man die Weglassen?


danke schonmal

[Ralf Kaiser]

Zitat:

Zitat von QuickAndDirty

Man kann Stringlisten hin und her übergaeben dank dem Sharemem.
Was nicht geht ist der Is operator also auch nicht assign, auf der falschen Seite.
Assign wäre mit zum Teil durch clear; AddStrings(bla); ersetzbar.

Also das geht definitiv nicht!

Die aufrufende Applikation und die DLL haben verwalten unterschiedliche Versionen der RTL! Das bedeutet Applikation.TStringList <> DLL.TStringList. Du weist ja selbst daruaf hin, dass der IS Operator nicht funktioniert (Warum ist das wohl so).

Wenn das bisher bei dir funktioniert hat dann hast du wahrscheinlich irgendwie Glück gehabt, dass sich im Speicher die VMTs nicht ins Gehege gekommen sind. Das kann aber irgendwann mal gewaltig knallen! (Also machs besser nicht)

Um Delphi-spezifische Klassen zwischen DLLs und Applikationen auszutauschen wurden extra die Packes erfunden! Das sind DLLs (die nur eine andere Endung haben) bei denen sichergestellt ist, dass Applikation und DLL die selbe Version der RTL verwenden.

Ciao,
Ralf

[Apollonius]

Nein. Clear und AddStrings funktionieren wunderbar. Warum auch nicht? Es werden nur Strings und TObjects ausgetauscht, da wird keine RTTI benötigt und auch kein Klassentypvergleich.

[Ralf Kaiser]

Zitat:

Zitat von Apollonius

Nein. Clear und AddStrings funktionieren wunderbar. Warum auch nicht? Es werden nur Strings und TObjects ausgetauscht, da wird keine RTTI benötigt und auch kein Klassentypvergleich.

Schon beim "Austausch" von simplen TObjects kann es gehörig knallen! Glaub mir. Wir haben in der Firma darum eine Projektgruppe mit 47 Projekten komplett von DLLs auf Packages umgestellt. Wie gesagt es kann eine ganze Zeit lang gut gehen aber dann können plötzlich vollkommen unreproduzierbare Fehler auftauchen.

Wenn nur Strings ausgetauscht werden ist das, Dank ShareMem, kein Problem aber es war ja die Rede von DLL-Routinen die TStringList-Instanzen zurückliefern und das rennt eben irgendwann ganz gehörig vor die Wand. Sobald irgendetwas von TObject abwärts ins Spiel kommt sind Packages angesagt.

[Bernhard Geyer]

Zitat:

Zitat von Alfi001

Schon beim "Austausch" von simplen TObjects kann es gehörig knallen!

Kann ich nur zustimmen. Entweder Packages oder reine C-Kompatible Schnittstelle oder COM/Automation oder Pluginframework wie Hydra.