Indy components for Lazarus
lazarus / 5-Lazarus Extra Components

----------------------------------------------------------------------
Josef Koller · 2005-12-14 00:59

Hello,

I would like to install the indy package (indy4lazarus-20040117) but I
get a lot of erros by compiling like this:

C:\download\Lazarus\indy\source\IdWinsock2.pas(11,1) Warning: Comment
level 2 found
C:\download\Lazarus\indy\source\IdWinsock2.pas(12,1) Warning: Comment
level 3 found
C:\download\Lazarus\indy\source\IdWinsock2.pas(13,1) Warning: Comment
level 4 found
C:\download\Lazarus\indy\source\IdWinsock2.pas(14,1) Warning: Comment
level 5 found
...
C:\download\Lazarus\indy\source\IdWinsock2.pas(4349,56) Warning:
Comment level 13 found
C:\download\Lazarus\indy\source\IdWinsock2.pas(4520,86) Warning:
Comment level 13 found
C:\download\Lazarus\indy\source\IdWinsock2.pas(4533) Fatal: Unexpected
end of file

What's wrong? Can anybody help me?

Best regards

Josef

----------------------------------------------------------------------
felipemdc · 2005-12-14 01:33

Probably the code contains something like this:

{ coment coment coment }
{
{
{ coment coment coment }

Notice that there are 4 { 's and only 2 } 's. Free Pascal doesn´t like
this. Every { must be enclosed with a }.

I´m not sure, but perhaps if you specify compatibility mode to Delphi
{$MODE Delphi} it will ignore this.

If not, you need to manually correct the comments. In many cases you
may use // comments to substitute a single line starting with {

----------------------------------------------------------------------
Anonymous · 2005-12-14 10:04

Hello,

Thanks for help. but now I have an other problem:

The compiler stops in line 3967.
Here is a function like this:

function WS2Call( AStubEntryIndex : DWORD ) : Pointer; forward;

procedure WS2Stub_WSACleanup;                   asm  mov eax,  0; call
WS2Call; jmp eax; end;
procedure WS2Stub_accept;                          asm  mov eax,  1;
call WS2Call; jmp eax; end;
.....

I read in a posting in sourceforge that I have to give begin end end
-Comands to this funtction. But where?

I tested the following:

function WS2Call( AStubEntryIndex : DWORD ) : Pointer; forward;

procedure WS2Stub_WSACleanup;
begin                
asm  mov eax,  0; call WS2Call; jmp eax; end;
end;
procedure WS2Stub_accept;
begin                        
asm  mov eax,  1; call WS2Call; jmp eax; end;
end;

etc.

But than I get an forward-error in the function

function WS2Call( AStubEntryIndex : DWORD ) : Pointer;
begin
  with WS2StubTable[AStubEntryIndex] do
  begin
    if hWS2Dll = 0 then
....

What is the correct declaration to get this Indy-components?

Many thanks and best regards

Josef

----------------------------------------------------------------------
Marc · 2005-12-14 10:22

That indy package is pretty old. IIRC it is part of FPC (or will
become part of it)
Better ask the ML, since afair Marco van Voort was working on it.

----------------------------------------------------------------------
Anonymous · 2005-12-14 11:54

Hello,

no I don't think so. It's from sourceforge yesterday and as a test
from this day. (indy4lazarus-20040117)

The same result:

The compiler stops bay this funktion and I don't know where I have to
give the begin and end commands.

Best regards

Josef

----------------------------------------------------------------------
Vincent Snijders · 2005-12-14 13:08

Quote from: "Anonymous"Hello,

no I don't think so. It's from sourceforge yesterday and as a test
from this day. (indy4lazarus-20040117)


So, it is from januari 2004, that is pretty old in my terms, because I
know Marco had a working version last September.

----------------------------------------------------------------------
Anonymous · 2005-12-14 14:09

Hi,
ther is no newer Version in sourceforge. Do you hae a link to a newer
one?

Josef