[fpc-pascal] portable SelectText replacement

Hartmut Eilers hartmut at eilers.net
Thu May 20 09:10:01 CEST 2010


Hi Folks,

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;

Thanks for your help
Hartmut


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



More information about the fpc-pascal mailing list