Databases
StackOverflow2013
Postsdbo
PODelphi How to wait for socket answer inside procedure?
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PODelphi How to wait for socket answer inside procedure?
    primarykey
    data
    text
    <p>For some specific needs i need to create procedure that waits for socket request (or answer) in dll:</p> <pre><code>TForm1 = class(TForm) ServerSocket1: TServerSocket; ...... procedure MyWaitProc; stdcall; begin Go := false; while not Go do begin // Wating... // Application.ProcessMessages; // Works with this line end; end; procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin MessageBoxA(0, PAnsiChar('Received: '+Socket.ReceiveText), '', MB_OK); Go := true; end; exports MyWaitProc; </code></pre> <p>When I call <code>Application.ProcessMessages</code> everything works fine: application waits for request and then continues. But in my case calling <code>Application.ProcessMessages</code> causes to unlocking main form on host application (not dll's one). When I don't call <code>Application.ProcessMessages</code> application just hangs couse it cannot handle message...</p> <p>So, how to create such a procedure that's wating for socket answer ? Maybe there a way to wait for socket answer without using <code>Application.ProcessMessages</code> ?</p> <p>EDIT</p> <p>I also tried to use TIdTCPServer, for some reasons, the result is the same.</p> <pre><code>TForm1 = class(TForm) IdTCPServer1: TIdTCPServer; ..... procedure MyWaitProc; stdcall; begin Go := false; while not Go do begin // Waiting ... // Application.ProcessMessages; end; end; procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var s: string; begin s := AContext.Connection.Socket.ReadString(1); AllText := AllText + s; Go := True; end; </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USAstronavigator
    1. USAstronavigator
    plurals
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. PODelphi How to wait for socket answer inside procedure?
      1. This table or related slice is empty.
      1. VTUpMod
    1. COI recommend to use a blocking library like Indy or Synapse for this task, as TServerSocket uses Windows event loop which makes it hard to use in a DLL application.
      singulars
      1. PODelphi How to wait for socket answer inside procedure?
      1. USmjn
    2. CO@mjn, i tried to use IdTCPServer, but result is the same. It also uses windows messages to call <code>OnExecute</code> event...
      singulars
      1. PODelphi How to wait for socket answer inside procedure?
      1. USAstronavigator
    3. COIdTCPServer does not use Windows messages, it is based on the Windows Winsock API. OnExecute is called in the main loop for a client connection, not in the Windows message loop.
      singulars
      1. PODelphi How to wait for socket answer inside procedure?
      1. USmjn
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload