Ĺadny brzuch
Witam
Mam taki kod biblioteki dll:
library dll2; uses SysUtils, Dialogs, ZipForge, Classes; {$R *.res} procedure pokaz; var Archiver: TZipForge; begin with Archiver do begin FileName := 'c:test.zip'; OpenArchive(fmCreate); BaseDir := 'c:\moje'; AddFiles('*.*'); CloseArchive; end; end; exports pokaz; begin end.
Otóz kompilje się bez zarzutów ale jak próbuje wywołać funkcję pokaz to wyskakuje mi błąd:
Podczas próby uruchomienia „C:\dll2\dll2.dll,pokaz” wystąpił błąd wyjątku.
I nie mam pojęcia dlaczego :( Czy mógłby mi ktoś pomóc ??
Hmm... spróbuj dodać stdcall zarówno przy nagłówku procedury w DLL oraz przy deklaracji w aplikacji.
Użytkownik p1101 edytował ten post 05 luty 2007, 22:03
Nic to nie dało dalej bład występuje :(
Ja tam bym polecil jednak stworzyc obiekt Archiver, bo uzywac czegos co nieistnieje jest raczej ciezko...
Oto chodziło !!!! Bardzo dziękuje :D
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam taki kod biblioteki dll:
library dll2; uses SysUtils, Dialogs, ZipForge, Classes; {$R *.res} procedure pokaz; var Archiver: TZipForge; begin with Archiver do begin FileName := 'c:test.zip'; OpenArchive(fmCreate); BaseDir := 'c:\moje'; AddFiles('*.*'); CloseArchive; end; end; exports pokaz; begin end.
Otóz kompilje się bez zarzutów ale jak próbuje wywołać funkcję pokaz to wyskakuje mi błąd:
Podczas próby uruchomienia „C:\dll2\dll2.dll,pokaz” wystąpił błąd wyjątku.
I nie mam pojęcia dlaczego :( Czy mógłby mi ktoś pomóc ??
Hmm... spróbuj dodać stdcall zarówno przy nagłówku procedury w DLL oraz przy deklaracji w aplikacji.
Użytkownik p1101 edytował ten post 05 luty 2007, 22:03
Nic to nie dało dalej bład występuje :(
Ja tam bym polecil jednak stworzyc obiekt Archiver, bo uzywac czegos co nieistnieje jest raczej ciezko...
Oto chodziło !!!! Bardzo dziękuje :D