PlugSys: Emit plugin has loaded!
PlugSys: zirdebug.dll skipped - plugin does not have entry function "InitPlugin"
--------------------------------------------


[15,50]: Expected ( but found , in [macro fileread]
Code: 
  ReadFile($handle, $fbuffer, $maxlen, $fileread, $overlapped);

Press the [enter] key to exit.

  pointer zFile;
  zFile = filecreate(settingsfile);
  fileread(zFile,settings,512,null);
  fileclose(zFile);

inline function fileread(handle, fbuffer, maxlen, overlapped) {
  push 0
  ReadFile($handle, $fbuffer, $maxlen, esp, $overlapped);
  emit byte 0x8B, 0x04, 0x24;     //fix for "eax = [esp];"
  esp += 4;
  $return eax;
}

program WIN32CUI 'Test';

#include 'ch.zir';
#include 'fileio.zir';

////////////////////

const SettingsFile = '.\\Settings.dat';

char settings[1024];
pointer hFile;

hFile = fileopen(SettingsFile, OPEN_EXISTING);

fileread(hFile, @settings, 512, nil);

fileclose(hFile);

print('Settings = ', @settings, '\r\n');


wait_key(nil);
ExitProcess(0);

program WIN32CUI 'Test';

#include 'ch.zir';
#include 'fileio.zir';
#include 'strings.zir';
////////////////////

const serverfile = '.\\servers.dat';
const settingsfile = '.\\settings.dat';


function test_fileread() {
  uses edi esi ecx;

  char servers[512];
  
  pointer zFile;
  zFile = fileopen(serverfile,OPEN_EXISTING);
  if(zFile == null) {
    print('Couldn´t open file \r\n');
    return false;
  } else {
    print('File open\r\n');
  }
  fileread(zFile,@servers,512,null);
  fileclose(zFile);
  
}

test_fileread();

wait_key(nil);
ExitProcess(0);