Auswahlliste beim Starten vom Server laden
Verfasst: Freitag 16. Oktober 2009, 19:53
Beispiel zum dynamischen laden einer Auswahlliste vom Server (hier clarc officeCapture Server auf Port 4440).
Das File lief.txt liegt dabei unter [clarc]\sys\pub\supply\lief.txt.
Das File lief.txt liegt dabei unter [clarc]\sys\pub\supply\lief.txt.
Code: Alles auswählen
Procedure EventOnStart;
Begin
ClearSelectionList('Lieferant');
RawHeaders := '';
HTTPResult := HTTPGet('http://server:4440/pub/supply/lief.txt',RawHeaders) + lfcr;
if pos('200 (OK)',uppercase(RawHeaders)) > 0 then
begin
while pos(lfcr,HTTPResult) > 0 do
begin
Value := trim(copy(HTTPResult,1,pos(lfcr,HTTPResult)-1));
delete(HTTPResult,1,pos(lfcr,HTTPResult)+1);
AddToSelectionList('Lieferant',Value,'');
end;
end;
End;