🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92366

Re: Lazarus i DLL ...

#92366
From: Łukasz 'Maly' Ostrowski
Date: Thu, 03 Jan 2008 15:47
35 lines
2332 bytes
DarekM wrote:
>> Tu pytanie jak coś podobnego zrobić w delphi ?
>> vb wykazuje spis funkcji i procedur dll'a i clsCommDriver z samej
>> nazwy widać że to klasa osadzona w bibliotece dll
>>
>> h2pas nie łyka tego wywala błąd
> h2pas łyka plik nagłówkowy z C, bo w nim pewnie jest napisana dll
> musisz utworzyć unit UnCmDrv1 i w nim zadeklarować wszystkie typy z
> dll oraz zadeklarować dowiązania do funkcji,
> poszukaj modułów ze słowem external

To też nie wyjdzie, ten DLL to ActiveX/COM/TypeLib. Użycie tej
biblioteki w FPC będzie conajmniej problematyyczne, ale możliwe,
uses ActiveX, i jazda z kolejnymi callami do OLE, piekło. :]

Podglądnąć sobie można ta biblioteke w OLE/COM Object Viewerze na
przykład. Znajduje się on np. w Windows SDK.

Jeżeli potrzeba tylko ograniczonej funkcjonalnośći to można
spróbować napisać wrapper/proxy w C/Cpp, skompilować do DLLki
a później to oprogramować w FPC ;). Ale to droga przez mękę.

Snip z freepascal.org:
Planned for next versions
  Next major Version (2.4)
    Language:
      Support for DispInterface and dispid (OLE binding on Windows).

Tak, to jeszcze potrwa dłuższa chwile ;). A najprościej będzie
napisać to w Visual Studio lub Delphi ;).

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/ 
Technical Details
Message-ID: <flj085$1ve$1@news.dialog.net.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail
References: <flgari$aff$1@inews.gazeta.pl> <flgrrt$7uj$2@atlantis.news.tpi.pl> <flh6sa$8ju$1@inews.gazeta.pl> <fli9u6$h9s$1@nemesis.news.tpi.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail
From: Łukasz 'Maly' Ostrowski <maly@USUNnemo.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Lazarus i DLL ...
Date: Thu, 3 Jan 2008 16:47:31 +0100
Organization: Dialog Net
Lines: 36
Message-ID: <flj085$1ve$1@news.dialog.net.pl>
References: <flgari$aff$1@inews.gazeta.pl> <flgrrt$7uj$2@atlantis.news.tpi.pl> <flh6sa$8ju$1@inews.gazeta.pl> <fli9u6$h9s$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: xdsl-2911.zgora.dialog.net.pl
Mime-Version: 1.0
X-Trace: news.dialog.net.pl 1199375429 2030 81.168.239.95 (3 Jan 2008 15:50:29 GMT)
X-Complaints-To: abuse@dialog.net.pl
NNTP-Posting-Date: Thu, 3 Jan 2008 15:50:29 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit