paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

process demo: removed platform specific code for testing if data is available, it uses fpc 2.2.0 functionality to get the available bytes and now runs also on *nix.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@270 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders 2007-09-28 12:30:15 +00:00
parent dc2b1b55c0
commit 6ac89bc136
2 changed files with 15 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/process/processdemo.lpi
View File

@ -26,11 +26,11 @@
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">

29
examples/process/processdemomainform.pas
View File

@ -56,13 +56,6 @@ var
implementation
uses
{$ifdef win32}
windows;
{$else}
baseunix, unix;
{$endif}
{ TMultipleProcessDemoForm }
procedure TMultipleProcessDemoForm.CloseButtonClick(Sender:TObject);
@ -102,24 +95,26 @@ var
procedure DoStuffForProcess(Process: TProcess; StartButton: TButton;
OutputMemo: TMemo);
var
TotalBytesAvailable: integer;
Buffer: string;
BytesAvailable: DWord;
BytesRead:LongInt;
begin
if not StartButton.Enabled then
StartButton.Enabled := not Process.Running;
if Process.Running then begin
Windows.PeekNamedPipe(Process.Output.Handle, nil, 0, nil,
@TotalBytesAvailable, nil);
while TotalBytesAvailable>0 do begin
SetLength(Buffer, TotalBytesAvailable);
BytesRead := Process.OutPut.Read(Buffer[1], TotalBytesAvailable);
if Process.Running then
begin
BytesAvailable := Process.Output.NumBytesAvailable;
BytesRead := 0;
while BytesAvailable>0 do
begin
SetLength(Buffer, BytesAvailable);
BytesRead := Process.OutPut.Read(Buffer[1], BytesAvailable);
OutputMemo.Text := OutputMemo.Text + copy(Buffer,1, BytesRead);
Windows.PeekNamedPipe(Process.Output.Handle, nil, 0, nil,
@TotalBytesAvailable, nil);
BytesAvailable := Process.Output.NumBytesAvailable;
NoMoreOutput := false;
end;
OutputMemo.SelStart := Length(OutputMemo.Text);
if BytesRead>0 then
OutputMemo.SelStart := Length(OutputMemo.Text);
end;
end;
begin