[fpc-pascal] Re: fpc-pascal Digest, Vol 71, Issue 50

[Hartmut Eilers]

Hallo Henry,

thank you for your fast response.
Sorry to say, that I don't understand what you suggest.
Could you explain it a bit more ?

Thanks a lot
Hartmut

>> I have the following code which I want to port to Windows, but
>> I have no idea how the functionality of SelectText may be done
>> in Windows. I googled a lot but unfortunately I found nothing
>> that helped me out. How is something like that handled under
>> Windows ?
>>
>>        {$I-}
>>                if debug then writeLOG('Sock2Text');
>>                Sock2Text(sock,sin,sout);
>>                if debug then writeLOG('reset');
>>                reset(sin);
>>                //if debug then writeLOG('rewrite');
>>                //rewrite(sout);
>>        {$I+}
>>                if debug then WriteLOG('Reading requests...');
>>                if (SelectText(sin,10000)>0) then begin
>>                        Addr_len:=SizeOf(cli_addr);
>>                        csock:=accept(sock, cli_addr,Addr_len);
>>                        Sock2Text(csock,ccsin,ccsout);
>>                        reset(ccsin);
>>                        rewrite(ccsout);
>>                        process_request;
>
> You can probably get the same effect by using overlapped i/o on the
> file and one of the wait functions, like WaitForSingleObject.
>
> Henry
>

-- 
Hartmut Eilers                          <hartmut at eilers.net>
http://www.openmsr.org/            http://www.eilers.net