Author: Tony Werten
Date: 06:22:22 07/14/00
Go up one level in this thread
On July 13, 2000 at 12:42:02, Andrew Dados wrote:
>On July 13, 2000 at 10:54:58, Tony Werten wrote:
>
>>Hello all,
>>
>>I finally managed to send messages from my delphi app to Winboard. Before I'm
>>going to spend another week on finding out how to read messages from winboard, I
>>just want to check.
>>
>>Did somebody already do this ?
>>
>>Tony
>
>You may try doing this in 2 ways:
>
>
>1. non-blocking polling pipe, ala Crafty.
>
>function isinput:boolean;
>var
>inh:THandle;
>dw:dword;
>numtoread:dword;
>begin
>dw:=0;
> inh := GetStdHandle(STD_INPUT_HANDLE);
> if (not PeekNamedPipe(inh, Nil, 0, Nil, @numtoread, Nil)) then numtoread:=0;
>isinput:=numtoread>0;
>end;
>
>-------------------------------------
>2. Separate dedicated thread which will be blocked on waiting for input all the
>time, so it uses no processor time (I do it this way):
>
>var Sin: String; {global input string}
>
>function DoInput(Ap:Pointer): Integer;
>var S:string;
> ch:char;
>begin
>repeat
>S:='';
>repeat
>Read(Input,ch); {blocking read}
>S:=S+ch;
>until ch=#10;
>Sin:=S;
>Dispatch; {this procedure examines input and decides what to do}
>until Sin='quit'+#10;
>EndThread(0);
>end;
>
>procedure StartReading;
>{called once in beginning of program to start the reading thread}
>var
> Flags: Integer;
> FInputHandle:THandle;
>begin
>doneThread:=False; Flags := 0; FInputHandle :=BeginThread(nil, 0, @DoInput, nil,
>Flags, Flags);
>end;
>
>I hope it helps...
The first, yes I think so. The second only works in a dos app I think. I was
talking about a win app.
Tony
>-Andrew-
This page took 0 seconds to execute
Last modified: Thu, 15 Apr 21 08:11:13 -0700
Current Computer Chess Club Forums at Talkchess. This site by Sean Mintz.