How to write buffer to console

[ydd]

I have ABuf, ALen

I know that writing to console uses Output (same as StdOut), so I need something like:

Code: Pascal  [Select][+][-]

1. BlockWrite(Output, ABuf, ALen);

should be cross platform - at least Windows, Linux, x86, ARM

[MarkMLl]

Iterate over it using Write()/WriteLn() possibly with the help of Format(). That's about as much as can be said given the lack of any information regarding what you actually expect to see.

MarkMLl

[cdbc]

Hi
If the buffer contains pure text with linefeeds, you could use a TStringlist.Text and writeln the individual lines to console, should work on all platforms...
Regards Benny

[MarkMLl]

If the buffer contains pure text with linefeeds, you could use a TStringlist.Text and writeln the individual lines to console, should work on all platforms...
Regards Benny

Possibly, but allowing for the cross-platform aspect I'm concerned about the OP's expectations regarding line breaks etc.

MarkMLl

[engkin]

This seems to work on Windows. Give it a try and see if it works on Linux:

Code: Pascal  [Select][+][-]

1. program Project1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
7.   cthreads,
8.   {$ENDIF}{$ENDIF}
9.   Classes, SysUtils
10.   { you can add units after this };
11.  
12. var
13.   hs:THandleStream;
14.   s:string='';
15.   buf:pchar;
16.   i: Integer;
17. begin
18.   for i := 1 to 10 do
19.     s:=s+'Test: '+IntToStr(i)+LineEnding;
20.  
21.   hs:=THandleStream.Create(TextRec(Output).Handle);
22.   try
23.     buf:=@s[1];
24.     hs.WriteBuffer(buf^,Length(s));
25.   finally
26.     hs.Free;
27.   end;
28.  
29.   readLn;
30. end.

Edit:
Just tried it on Android and it worked.

[ydd]

This seems to work on Windows. Give it a try and see if it works on Linux: ..

actually thank you for your idea, I updated it a little and it works on Windows & Linux:

Code: Pascal  [Select][+][-]

1. procedure WriteBuf(ABuf: Pointer; ALen: Integer);
2. begin
3.   FileWrite(TextRec(Output).Handle, ABuf^, ALen);
4. end;

[AdrianHamilton]

Hi, for some reason it's not working for me.... I did exactly as you did and nothing changed! What could be the problem?

[jamie]

Try the System.StdOutPutHandle instead.