Funkcje aplikacji

Funkcje API

procedure BeginProgress(StartRec,RecCount:integer; Caption,Descr:PChar);stdcall;

Pokazuje na ekranie i rozpoczyna pasek postępu

Parametry

Zwracane wartości

Brak

Uwagi

Po wywołaniu tej funkcji, do aplikacji podstawowej zostanie przekazana wiadomość, aby uruchomiła pasek postępu z odpowiednimi parametrami. Następnie aplikacja API może sterować postępem paska za pomocą funkcji GoProgress tak długo, ile kroków ma do wykonania. Aby ukryć pasek, aplikacja API powinna wywołać EndProgress.


procedure BeginProgressWithBreak(StartRec,RecCount:integer; Caption,Descr:PChar);stdcall;

Pokazuje na ekranie i rozpoczyna pasek postępu z możliwością przerwania operacji

Parametry

Zwracane wartości

Brak

Uwagi

Po wywołaniu tej funkcji, do aplikacji podstawowej zostanie przekazana wiadomość, aby uruchomiła pasek postępu z odpowiednimi parametrami. Następnie aplikacja API może sterować postępem paska za pomocą funkcji GoProgress tak długo, ile kroków ma do wykonania. Aby ukryć pasek, aplikacja API powinna wywołać EndProgress.


procedure GoProgress(Descr:PChar);stdcall;

Wykonuje kolejny krok paska postępu

Parametry

Zwracane wartości

Brak

Uwagi

Brak


procedure GoProgressWithBreak(Descr:PChar);stdcall;

Wykonuje kolejny krok paska postępu z możliwością przerwania operacji

Parametry

Zwracane wartości

Brak

Uwagi

Jeśli operacja zostanie przerwana, zostanie wysłana do API wiadomość o numerze 12


procedure EndProgress;stdcall;

Kończy i ukrywa pasek postępu

Parametry

Brak

Zwracane wartości

Brak

Uwagi

Brak


procedure MessageBox(Ide:integer;Caption:PChar);stdcall;

Pokazuje okno informacyjne z informacją, ostrzeżeniem lub błędem

Parametry

Zwracane wartości

Brak

Uwagi

Brak


function ConfirmBox(Caption:PChar; Param:integer):integer;stdcall;

Pokazuje okno informacyjne z pytaniem

Parametry

Zwracane wartości

Uwagi

Jeśli chcemy, aby były widoczne wszystkie trzy przyciski (przycisk "Tak" jest zawsze widoczny), a przycisk "Anuluj" był domyślny, w parametrze Param należy wpisać 0x1 + 0x2 + 0x200


procedure PrintHtm(Ide:integer;URL:PChar);stdcall;

Wywołuje okno z przeglądarką wydruków

Parametry

Zwracane wartości

Brak

Uwagi

Numer wydruku powinien być unikalny. Aby nie kolidował z wydrukami istniejącymi w aplikacji podstawowej, powinien być większy od 30000.


procedure AddonIsWorking;stdcall;

Daje znać aplikacji podstawowej, że API zostało uruchomione

Parametry

Brak

Zwracane wartości

Brak

Uwagi

Jeśli chcemy, aby addon uruchomił się razem z aplikacją podstawową, w pliku rplatnik.ini w sekcji [Addon] należy wpisać:
AllMachines=ścieżka do naszej aplikacji API, jeśli ścieżka jest wspólna dla wszystkich maszyn
lub
Nazwa_komputera=ścieżka do naszej aplikacji API, jeśli ścieżka jest unikalna dla każdej maszyny
przykładowo:
[Addon]
AllMachines=C:\RESET2\Platnik.10x\DEMOS\Delphi\Przykład 2\R2platnikUI.exe
Aplikacja API powinna wywołać tę procedurę, aby zapobiegać ponownemu wywołaniu API w sytuacji, gdy aplikacja główna nie zamknęła poprawnie API.