usbiocomlib_tlb.pas

6个用VB和DELPHI编写的FOR USB驱动程序

  DefaultInterface.GetStringDescriptor(StringDescriptor, DescSize, Index, LanguageId, Status);
end;

procedure TUSBIOInterface.SetDescriptor(var Descriptor: PSafeArray; Recipient: SYSINT; 
                                        DescriptorType: SYSINT; DescriptorIndex: SYSINT; 
                                        LanguageId: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.SetDescriptor(Descriptor, Recipient, DescriptorType, DescriptorIndex, 
                                 LanguageId, Status);
end;

procedure TUSBIOInterface.AddInterface(InterfaceIndex: SYSINT; AlternateSettingIndex: SYSINT; 
                                       MaximumTransferSize: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.AddInterface(InterfaceIndex, AlternateSettingIndex, MaximumTransferSize, Status);
end;

procedure TUSBIOInterface.DeleteInterfaces;
begin
  DefaultInterface.DeleteInterfaces;
end;

procedure TUSBIOInterface.SetConfiguration(ConfigurationIndex: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.SetConfiguration(ConfigurationIndex, Status);
end;

procedure TUSBIOInterface.GetConfiguration(out ConfigurationValue: Byte; out Status: SYSINT);
begin
  DefaultInterface.GetConfiguration(ConfigurationValue, Status);
end;

procedure TUSBIOInterface.UnconfigureDevice(out Status: SYSINT);
begin
  DefaultInterface.UnconfigureDevice(Status);
end;

procedure TUSBIOInterface.SetInterface(InterfaceIndex: SYSINT; AlternateSettingIndex: SYSINT; 
                                       MaximumTransferSize: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.SetInterface(InterfaceIndex, AlternateSettingIndex, MaximumTransferSize, Status);
end;

procedure TUSBIOInterface.GetInterface(out AlternateSetting: Byte; InterfaceIndex: SYSINT; 
                                       out Status: SYSINT);
begin
  DefaultInterface.GetInterface(AlternateSetting, InterfaceIndex, Status);
end;

procedure TUSBIOInterface.ClassOrVendorInRequest(var Buffer: PSafeArray; var ByteCount: SYSINT; 
                                                 Flags: SYSINT; Type_: SYSINT; Recipient: SYSINT; 
                                                 RequestTypeReservedBits: SYSINT; Request: SYSINT; 
                                                 Value: SYSINT; Index: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.ClassOrVendorInRequest(Buffer, ByteCount, Flags, Type_, Recipient, 
                                          RequestTypeReservedBits, Request, Value, Index, Status);
end;

procedure TUSBIOInterface.ClassOrVendorOutRequest(var Buffer: PSafeArray; Flags: SYSINT; 
                                                  Type_: SYSINT; Recipient: SYSINT; 
                                                  RequestTypeReservedBits: SYSINT; Request: SYSINT; 
                                                  Value: SYSINT; Index: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.ClassOrVendorOutRequest(Buffer, Flags, Type_, Recipient, 
                                           RequestTypeReservedBits, Request, Value, Index, Status);
end;

procedure TUSBIOInterface.SetFeature(Recipient: SYSINT; FeatureSelector: SYSINT; Index: SYSINT; 
                                     out Status: SYSINT);
begin
  DefaultInterface.SetFeature(Recipient, FeatureSelector, Index, Status);
end;

procedure TUSBIOInterface.ClearFeature(Recipient: SYSINT; FeatureSelector: SYSINT; Index: SYSINT; 
                                       out Status: SYSINT);
begin
  DefaultInterface.ClearFeature(Recipient, FeatureSelector, Index, Status);
end;

procedure TUSBIOInterface.GetDevicePowerState(out DevicePowerState: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.GetDevicePowerState(DevicePowerState, Status);
end;

procedure TUSBIOInterface.SetDevicePowerState(DevicePowerState: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.SetDevicePowerState(DevicePowerState, Status);
end;

procedure TUSBIOInterface.ResetDevice(out Status: SYSINT);
begin
  DefaultInterface.ResetDevice(Status);
end;

procedure TUSBIOInterface.CyclePort(out Status: SYSINT);
begin
  DefaultInterface.CyclePort(Status);
end;

procedure TUSBIOInterface.GetStatus(out StatusValue: SYSINT; Recipient: SYSINT; Index: SYSINT; 
                                    out Status: SYSINT);
begin
  DefaultInterface.GetStatus(StatusValue, Recipient, Index, Status);
end;

procedure TUSBIOInterface.GetCurrentFrameNumber(out FrameNumber: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.GetCurrentFrameNumber(FrameNumber, Status);
end;

function  TUSBIOInterface.ErrorText(Status: SYSINT): WideString;
begin
  Result := DefaultInterface.ErrorText(Status);
end;

procedure TUSBIOInterface.Bind(EndpointAddress: Byte; out Status: SYSINT);
begin
  DefaultInterface.Bind(EndpointAddress, Status);
end;

procedure TUSBIOInterface.Unbind(out Status: SYSINT);
begin
  DefaultInterface.Unbind(Status);
end;

procedure TUSBIOInterface.StartReading(SizeOfBuffer_IsoFramesInBuffer: SYSINT; 
                                       NumberOfBuffers: SYSINT; MaxErrorCount: SYSINT; 
                                       out Status: SYSINT);
begin
  DefaultInterface.StartReading(SizeOfBuffer_IsoFramesInBuffer, NumberOfBuffers, MaxErrorCount, 
                                Status);
end;

procedure TUSBIOInterface.ReadData(var Buffer: PSafeArray; out ByteCount: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.ReadData(Buffer, ByteCount, Status);
end;

procedure TUSBIOInterface.ReadIsoData(var Buffer: PSafeArray; out ByteCount: SYSINT; 
                                      var SubBufferLength_ErrorCode: PSafeArray; out Status: SYSINT);
begin
  DefaultInterface.ReadIsoData(Buffer, ByteCount, SubBufferLength_ErrorCode, Status);
end;

procedure TUSBIOInterface.StopReading;
begin
  DefaultInterface.StopReading;
end;

procedure TUSBIOInterface.StartWriting(SizeOfBuffer_IsoFramesInBuffer: SYSINT; 
                                       NumberOfBuffers: SYSINT; MaxErrorCount: SYSINT; 
                                       WriteStatus: Integer; out Status: SYSINT);
begin
  DefaultInterface.StartWriting(SizeOfBuffer_IsoFramesInBuffer, NumberOfBuffers, MaxErrorCount, 
                                WriteStatus, Status);
end;

procedure TUSBIOInterface.WriteData(var Buffer: PSafeArray; UserId: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.WriteData(Buffer, UserId, Status);
end;

procedure TUSBIOInterface.GetWriteStatus(out UserId: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.GetWriteStatus(UserId, Status);
end;

procedure TUSBIOInterface.WriteIsoData(var Buffer: PSafeArray; var SubBufferLength: PSafeArray; 
                                       UserId: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.WriteIsoData(Buffer, SubBufferLength, UserId, Status);
end;

procedure TUSBIOInterface.GetIsoWriteStatus(out UserId: SYSINT; var StatusArray: PSafeArray; 
                                            out FrameCount: SYSINT; out Status: SYSINT);
begin
  DefaultInterface.GetIsoWriteStatus(UserId, StatusArray, FrameCount, Status);
end;

procedure TUSBIOInterface.StopWriting;
begin
  DefaultInterface.StopWriting;
end;

procedure TUSBIOInterface.ResetPipe(out Status: SYSINT);
begin
  DefaultInterface.ResetPipe(Status);
end;

procedure TUSBIOInterface.AbortPipe(out Status: SYSINT);
begin
  DefaultInterface.AbortPipe(Status);
end;

procedure TUSBIOInterface.EnablePnPNotification(const Guid: WideString; out Status: SYSINT);
begin
  DefaultInterface.EnablePnPNotification(Guid, Status);
end;

procedure TUSBIOInterface.DisablePnPNotification(const Guid: WideString; out Status: SYSINT);
begin
  DefaultInterface.DisablePnPNotification(Guid, Status);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TUSBIOInterfaceProperties.Create(AServer: TUSBIOInterface);
begin
  inherited Create;
  FServer := AServer;
end;

function TUSBIOInterfaceProperties.GetDefaultInterface: IUSBIOInterface;
begin
  Result := FServer.DefaultInterface;
end;

function  TUSBIOInterfaceProperties.Get_DevicePathName: WideString;
begin
  Result := DefaultInterface.Get_DevicePathName;
end;

function  TUSBIOInterfaceProperties.Get_IsCheckedBuild: Integer;
begin
  Result := DefaultInterface.Get_IsCheckedBuild;
end;

function  TUSBIOInterfaceProperties.Get_IsDemoVersion: Integer;
begin
  Result := DefaultInterface.Get_IsDemoVersion;
end;

function  TUSBIOInterfaceProperties.Get_IsLightVersion: Integer;
begin
  Result := DefaultInterface.Get_IsLightVersion;
end;

function  TUSBIOInterfaceProperties.Get_DeviceOptions: SYSINT;
begin
  Result := DefaultInterface.Get_DeviceOptions;
end;

procedure TUSBIOInterfaceProperties.Set_DeviceOptions(Options: SYSINT);
begin
  DefaultInterface.Set_DeviceOptions(Options);
end;

function  TUSBIOInterfaceProperties.Get_DeviceRequestTimeout: SYSINT;
begin
  Result := DefaultInterface.Get_DeviceRequestTimeout;
end;

procedure TUSBIOInterfaceProperties.Set_DeviceRequestTimeout(pVal: SYSINT);
begin
  DefaultInterface.Set_DeviceRequestTimeout(pVal);
end;

function  TUSBIOInterfaceProperties.Get_ShortTransferOK: Integer;
begin
  Result := DefaultInterface.Get_ShortTransferOK;
end;

procedure TUSBIOInterfaceProperties.Set_ShortTransferOK(ShortTransfer: Integer);
begin
  DefaultInterface.Set_ShortTransferOK(ShortTransfer);
end;

function  TUSBIOInterfaceProperties.Get_EndpointFifoSize: SYSINT;
begin
  Result := DefaultInterface.Get_EndpointFifoSize;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents('ActiveX',[TUSBIOInterface]);
end;

end.