BGAFC Vendégkönyv

Σ: 1 post

TCH (statz)

#1, Főfasz (10443)

1774 | #220a | ^ | Idézet | Tue, 27 Nov 2012 17:46:58 +01

31.46.*.*

*.catv.pool.telekom.hu

Bár még mindig nem hinném, hogy túlteng itten ama emberek száma, akik paszkállal mérgezik magukat, de.

Ugye ha Delphi alatt az ember netes fasságokat (HTTP, FTP, IRC, SMTP, ETC) akar, akkor ott van az Indy. Na, ez FreePascal/Lazarus alatt is van, csak telepíteni kéne, merthogy kurwára nem lehet csak úgy telepíteni. A hivatalos telepítőútmutatók (http://wiki.freepascal.org/Indy_with_Lazarus) egytől egyik befuccsolnak, noha a második számú telepítési útmutató közel járt hozzá...

Annyi a trükkje, hogy miután kicsomagoltuk, de még mielőtt nekilátnánk a 2. számú útmutatót követni, be kell menni az fpc mappába és az IdStackUnix.pas fájlban be kell baszni az implementation szekcióban, közvetlenül az uses lista után ezt a két függvényt:

Function socket(Domain,SocketType,Protocol:Longint):Longint;
begin
  Socket:=fpsocket(domain,sockettype,protocol);
end;

Function Shutdown(Sock:Longint;How:Longint):Longint;
begin
  ShutDown:=fpshutdown(sock,how);
end;

Ez a két függvény egyébként a sockets unit-ban van, pontosabban ennek az unit-nak az egyik include-jában, a sockovl.inc fájlban, csak mivel benne van egy {$ifdef legacysocket} ágban, a kurwa compiler nem eszi meg. Persze a hackelés helyett biztos lehet mondani neki, hogy állítsa be azt a rohadt környezeti változót, de én láma vagyok és nem találtam meg, hogy hol kell... (A "Compiler options/Other/Custom options" nem megy.)

Utána az ember bemegy a Lazarusba és menüben "Package/Open package file (.lpk) ..." és Install.
Köszönöm a figyelmetlenséget, enyém a tiszteletlenség; továbbá bölényfaszt bilgéc pofájába, ez is az ő hibája.