Přidání knihovny do Delphi

Víme . Jen nevíme, jak a kam chceš DLL přidávat. Jestli ti jde o volání DLL v Delphi, tak se to provádí asi takto:

type TMyProc = procedure (parametry,....);
var	Handle: THandle; MyProc: TMyProc;
begin
  Handle := LoadLibrary ('Jméno-té-dll.dll');
  if Handle <> 0 then begin
    @MyProc	:= GetProcAddress (Handle, 'Název-procedury-z-Dll');
    if Assigned (MyProc) then MyProc (parametry,...) else Hlásit-že-procedura-se-nenašla;
    FreeLibrary (Handle) end
  else
    Hlásit-že-se-nenašlo-DLL;
end;

Jo dík , tohle se mně bude asi hodit taky.. Ale já to myslel tak , že když přidám komponentu , která využívá nějakou knihovnu , tak po spuštění delphi zahlásí že ji nemůže nahrát ...

Tak to musí být to DLL umístěno tam, kde ho Delphi a přeložený program může najít. Nejlépe ve Windows\System32.

To mně taky napadlo .... skoušel sem nakopírovat do system32 , do adresáře s přeloženým programem a do adresářů delphi ( bin , lib ... ) a nic .... pořád nemůže nahrát

Pak bude ta DLL poškozená, nebo dokonce ta komponenta.
//Edit: Nebo je pro jinou verzi Windows.
//Edit2: Ještě jedna možnost: Ta DLL volá další DLL, kterou nemáš.

hmm eště si s tím pohraju ... dik za čas , aspoň vím že to tak má fungovat ....

hmm to je možný že volá jinou knihovnu ...

Aha. Tak už jsem přišel, proč mi to auto nejede. Zkoušel jsem totiž jet úplně v jiném autě, než ve kterém jsem seděl...

Málem jsem spad' ze židle, když jsem si to živě představil . Prozraď, jak jsi to udělal.

Onehdy jsem měl auto v servisu a jezdil jsem vozidlem, zabaveným synovi. Pak mi volali ze servisu, že mám svoje auto hotový. Přijel jsem si pro něj a teď jsem si uvědomil, že potřebuju dovézt domů dvě auta a ani jednu cestu neabsolvovat pěšky (z turistiky mám hrůzu) a nemaje rezervního chaufeura. Leda druhé auto řídit silou vůle. Zdali někdo uhodne, jak jsem tuto situaci vyřešil v jednom člověku - mně?

Zavolal si kniznicu odtahovka.dll?

Lze to i takto zadas to hned po type

example:

type
......
end;

function knihovna(promenna1:string; promenna2:Tstring)Tstring; knihovnicka.dll external

var
form1:Tform;

implementation

potom uz jen pouzijes promenne z knihovny.