Server Socket Queues

>>If I receive a second packet
while this procedure is processing the first packet, it stops processing the first packet until the
latest packet has been handled.<<

so you're using non-blocking sockets
make the server thread-blocking

Thanks Lee.  That may help a little, but it doesn't overcome my first problem and lack of experience.

I'd really like to find an add-on that will handle the socket for me.

Thanks DragonSlayer.  The Indy components look like they may be useful.  I have downloaded them and will try them out shortly.

Hello!

This component is what you need:
http://overbyte.alexid.fr/frame_index.html

Good Luck!

Thanks freshman3k.  I'll take a look at these components as well.

if you're going to use indy then take a look at some of my helper functions @ http://lee.nover.has.his.evilside.org/isapi/pas2html.dll/pas2html?File=/delphi/MiscFiles/vn_common/

Thanks Lee Nover.

Thanks Lee Nover.

I am trying out the Indy components.  I have replaced my old TServerSocket with the Indy TldTCPServer.  And I'm using the OnExecute event instead of the OnClientRead event.

The problem is, I am also caling Apollo database components to look up data in my old DBF files.  As soon as I call the Apollo Seek component, I get an error box about 30 times and no returned data.  The error is:

Data Driver Error
Error:3200
Invalid work area

I am happy to increase the points for help on this problem.

this kinda doesn't fit into the current topic
but still .. I think it's coz the OnExecute event of the server is in the context of the AThread param
so you should do smth like: AThread.Synchronize(DoApolloStuff);

Thanks Lee.  I know this is off the thread, but I am willing to pay points for help.

I am calling my procedure with:
AThread.Synchronize(GetMemberDetails(MemberID));

When I compile I get:
[Error] main.pas(866): Incompatible types: 'TThreadMethod' and 'procedure, untyped pointer or untyped parameter'

Also, can I make GetMemberDetals a function and return a result from it?

no you can't
make it a parameterless procedural handler

make one global variable - MemberID (to the owning object)
then in the GetMemberDetails procedure handle the necessary things

an example from one of my apps :

procedure TPreviewF.tcpCommExecute(AThread: TIdPeerThread);
var Header: TCommHeader;
begin
     if not GetHeader(AThread.Connection, Header) then
        Exit;

     // LastCL and LastHeader are global variables
     LastCL:=TCrossLink(AThread.Data);
     LastHeader:=Header;
     AThread.Synchronize(DoCommExecute);
end;

procedure TPreviewF.DoCommExecute;
var CurrThread: TidPeerThread;
    Header: TCommHeader;
begin
     // here I assign the global variables to the procedures local variables
     CurrThread:=LastCL.AThread;
     Header:=LastHeader;
     HandleRequest(CurrThread.Connection, Header);
end;

Thank you, Thank you, Thank you, Thank you, Thank you!!!

I will give the points for this question to DragonSlayer as he answered the original question and I am using the Indy components.

I will post a new question in order to give you points, Lee Nover.  What do you consider to be a reasonable number for your help?

PS. is Lee Nover your real name or is it a made up name like Ben Dover or Ilene Dover?

Lee Nover, please see above comment