type
  TDblPoint = record
    X, Y: Double;
  end;

  TPointList = array of TDblPoint;

HRESULT _stdcall AppendPoint([in] double x, [in] double y);

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

procedure LoadData(AGUID: {NOT_OLEAUTO(TGUID)}OleVariant; const AData: IUnknown); dispid 106;

Posted via ActualForum NNTP Server 1.5

  TOutputs = array[0..7] of byte;
  TMState = record
    OutputsV: TOutputs;
    OutputsA: TOutputs;
  end;

function TShedPortSrv_.GetState8(out State: OleVariant): HResult;
var Size: integer;
    P: Pointer;
begin
  if OnLine then
  begin
    Size:=SizeOf(TMState);
    State:=VarArrayCreate([0, Size-1], varByte); //<----вот это вот
    P:=VarArrayLock(State);
    try
      Move(TM88Protocol.MState, P^, Size);
    finally
      VarArrayUnlock(State);  //досюда
    end;
    Result:=S_OK;
  end
  else Result := S_FALSE;
end;

Posted via ActualForum NNTP Server 1.5