tests/webtbs/tw8730c.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos}
{ %NEEDLIBRARY }

{$mode delphi}
program MainApp;

uses
  sysutils;

const
{$ifdef windows}
  libname='tw8730b.dll';
{$else}
  libname='tw8730b';
  {$linklib tw8730b}
{$endif}

function Lib2Func: pchar; CDecl; external libname name 'Lib2Func';

var
  error: byte;
begin
  error:=0;
  WriteLn( Lib2Func );
  if not(fileexists('tw8730a.txt')) or
     not(fileexists('tw8730b.txt')) then
   error:=1;
  if (fileexists('tw8730a.txt')) then
    deletefile('tw8730a.txt');
  if (fileexists('tw8730b.txt')) then
    deletefile('tw8730b.txt');
  halt(error);
end.