Auswahlliste beim Starten vom Server laden

[Dennis Balzuweit]

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.

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;