Webservice

[TiGü]

Delphi-Quellcode:

var
  Form1: TForm1;
  sResult: ILot;

implementation

{$R *.dfm}

var
  ToolCode: string;
  CheckSlotPos: Boolean;
  EquipmentValidation: Boolean;
  LotName: string;
  ReturnBrokenWafers: Boolean;
  UseSlotPosition: Boolean;

procedure TForm1.Button1Click(Sender: TObject);
var
  URL: string;
  Response: GetLotInfoByLotNameResponse;
begin
  URL := 'http://tst-rbg14:8019/Lot.svc';
  if not Assigned(sResult) then
    sResult := GetILot(False, URL);

  Response := sResult.GetLotInfoByLotName(ToolCode, CheckSlotPos, EquipmentValidation, LotName, ReturnBrokenWafers, UseSlotPosition);

  if Response <> '' then
    ShowMessage(Response);

end;

Was gibt es denn?