Код: Выделить всё
public void writeSimulator(byte[] data, byte nombre)
В Delphi я импортирую библиотеку и импортирую следующее:
Код: Выделить всё
// *********************************************************************//
// Déclaration de classe proxy de serveur OLE
// Objet serveur : TSimulator
// Chaîne d'aide :
// Interface par défaut : _Simulator
// DISP Int. Déf. ? : No
// Interface événements :
// TypeFlags : (2) CanCreate
// *********************************************************************//
TSimulator = class(TOleServer)
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: _Simulator);
procedure Disconnect; override;
function Equals(obj: OleVariant): WordBool;
function GetHashCode: Integer;
function GetType: _Type;
procedure writeSimulator(data: PSafeArray; nombre: Byte);
procedure readSimulator(var data: PSafeArray; nombre: Byte);
Код: Выделить всё
MCMT2021.VoieAD.writeSimulator(PSafeArray(SendBuff), NumbyteWrite);
Меня выбрасывает приведение типов, а если я его тоже не вставлю!!!
Спасибо за помощь
Мишель
Подробнее здесь: https://stackoverflow.com/questions/790 ... and-delphi