refactor: Output to STDOUT in sbalazs

Author: gcarreno

entries/sbalazs/src/obrc.lpr

@@ -44,18 +44,18 @@ procedure DoOnFinish(Sender: TObject);
     Halt;
   end;
 
-  if (Trim(ParamStr(2)) = '')  then
+  {if (Trim(ParamStr(2)) = '')  then
   begin
     Writeln('Please specify a valid destination file');
     Halt;
-  end;
+  end;}
 
-  if (Trim(ParamStr(3)) <> '')  then
+  if (Trim(ParamStr(2)) <> '')  then
     TC := StrToIntDef(ParamStr(3), 16)
   else
     TC := 16;
 
-  FWSManager := TWSManager.Create(ParamStr(1), ParamStr(2), TC);
+  FWSManager := TWSManager.Create(ParamStr(1), TC);
   MStart.Data := nil;
   MStart.Code := @DoOnStart;
   FWSManager.OnStart := TNotifyEvent(MStart);

entries/sbalazs/src/uweatherstations.pas

@@ -80,10 +80,11 @@   TWSThreadsWatcher = class(TWSThreadBase)
     constructor Create(AWSManager: TWSManager);
   end;
 
+  { TWSManager }
+
   TWSManager = class
   private
     FSrcFile: String;
-    FDstFile: String;
     FThreadCnt: Integer;
     FTerminated: Boolean;
     FThreadList: TLockList;
@@ -92,7 +93,7 @@   TWSManager = class
     FOnStart: TNotifyEvent;
     FOnFinish: TNotifyEvent;
   public
-    constructor Create(ASrcFile, ADstFile: String; AThreadCnt: Integer);
+    constructor Create(ASrcFile: String; AThreadCnt: Integer);
     destructor Destroy; override;
   public
     property WSThreadsWatcher: TWSThreadsWatcher read FWSThreadsWatcher;
@@ -414,7 +415,7 @@ procedure TWSThreadsWatcher.CreateFinalList;
   Str: String;
   WS: PWS;
   SL: TStringList;
-  MS: TMemoryStream;
+//  MS: TMemoryStream;
 begin
   SL := TStringList.Create;
   try
@@ -440,14 +441,20 @@ procedure TWSThreadsWatcher.CreateFinalList;
   Str := Trim(Str);
   Delete(Str, Length(Str), 1);
   Str := '{' + Str + '}';
-  MS := TMemoryStream.Create;
-  try
-    MS.Write(Pointer(Str)^, Length(Str) div SizeOf(Char));
-    MS.Position := 0;
-    MS.SaveToFile(FWSManager.FDstFile);
-  finally
-    MS.Free;
-  end;
+  Str := StringReplace(Str, sLineBreak, ' ', [rfReplaceAll]);
+  Writeln(Str);
+
+  //Str := Trim(Str);
+  //Delete(Str, Length(Str), 1);
+  //Str := '{' + Str + '}';
+  //MS := TMemoryStream.Create;
+  //try
+  //  MS.Write(Pointer(Str)^, Length(Str) div SizeOf(Char));
+  //  MS.Position := 0;
+  //  MS.SaveToFile(FWSManager.FDstFile);
+  //finally
+  //  MS.Free;
+  //end;
 end;
 
 procedure TWSThreadsWatcher.Execute;
@@ -497,10 +504,9 @@ procedure TWSThreadsWatcher.Execute;
 end;
 
 { TWSManager }
-constructor TWSManager.Create(ASrcFile, ADstFile: String; AThreadCnt: Integer);
+constructor TWSManager.Create(ASrcFile: String; AThreadCnt: Integer);
 begin
   FSrcFile := ASrcFile;
-  FDstFile := ADstFile;
   FThreadCnt := AThreadCnt;
   FTerminated := False;
   FThreadList := TLockList.Create;