diff --git a/windows/helloworld.lpr b/windows/helloworld.lpr new file mode 100644 index 0000000..bc7752b --- /dev/null +++ b/windows/helloworld.lpr @@ -0,0 +1,35 @@ + + +{%RunFlags MESSAGES+} +{$mode ObjFPC}{$H-} +program helloworld(output); + + +uses + TariffCalculator, CTypes; + +var + TariffCalc: TariffCalculatorHandle; + CustomerRepo: array[0..100] of char; + LocalCustomerRepo: array[0..100] of char; + +begin +writeLn('Hello, World!') ; +// TariffCalc := NewTariffCalculator; +// DeleteTariffCalculator(TariffCalc); + if InitGitLibrary() > 0 then + begin + writeLn('init OK!') ; + CustomerRepo := 'https://git.mimbach49.de/GerhardHoffmann/customer_999.git'; + LocalCustomerRepo := 'C:\\tmp\\customer_999'; + CloneRepository(CustomerRepo, LocalCustomerRepo); + + ShutdownGitLibrary(); + end + else + begin + writeLn('init NOT OK!') ; + Readln; + end; +end. +