OberonCore

MODULE TestStdToLogDll ["Project1.dll"];

   PROCEDURE Test1*;
   PROCEDURE Test2*;

END TestStdToLogDll.

MODULE TestTemp;
   
   IMPORT TestStdToLogDll, Log;
   
   PROCEDURE Do1*;
   BEGIN
      Log.String("Test1:"); Log.Ln;
      TestStdToLogDll.Test1
   END Do1;

   PROCEDURE Do2*;
   BEGIN
      Log.String("Test2:"); Log.Ln;
      TestStdToLogDll.Test2
   END Do2;
   
END TestTemp.

^Q "Kernel.LoadMod('TestStdToLog')"
^Q TestTemp.Do1
^Q TestTemp.Do2
^Q DevDebug.UnloadThis TestStdToLog

(* Delphi dll *)
library Project1;

uses SysUtils, Classes, Windows;

{$R *.res}

procedure Test1;
begin
  writeln('x'#9'='#9, 1);
end;

procedure Test2;
  var n: Cardinal; res: LongBool;
begin
  res := Windows.WriteFile(GetStdHandle(Windows.STD_OUTPUT_HANDLE), 'Test'#9'**'#10, 8, n, nil);
end;

exports Test1, Test2;

begin
  Windows.Beep(1000, 1000)
end.

#include "stdafx.h"
#include <windows.h>
#include <stdio.h>

int _tmain(int argc, _TCHAR* argv[])
{
   HANDLE oldStdIn, oldStdOut;
   HANDLE newStdIn, newStdOut;
   BOOL res;
   oldStdIn = GetStdHandle(STD_INPUT_HANDLE);
   oldStdOut = GetStdHandle(STD_OUTPUT_HANDLE);
   newStdOut = CreateFile(argv[1],                // name of the write
                       GENERIC_WRITE,          // open for writing
                       0,                      // do not share
                       NULL,                   // default security
                       CREATE_ALWAYS,          // overwrite existing
                       FILE_ATTRIBUTE_NORMAL,  // normal file
                       NULL);                  // no attr. template

    if (newStdOut == INVALID_HANDLE_VALUE)
    {
        printf("Could not open file (error %d)\n", GetLastError());
        return -1;
    } else {
      res = SetStdHandle(STD_OUTPUT_HANDLE, newStdOut);
      if (!res) { printf("Cannot set standart handle"); return -2;}
      printf("This message must be in file\n");
      res = SetStdHandle(STD_OUTPUT_HANDLE, oldStdOut);
      if (!res) { printf("Cannot set standart handle"); return -3;}
      printf("\nEnd test\n");   
      CloseHandle(newStdOut);
   }
   return 0;
}