Прогрузка Весов Digi S-300

komar9n

New member
27.02.2013
2
0
#1
Доброго времени суток уважаемые бояре :). У меня проблема следующего характера: Вояю программу для работы с весами, есть DLL от разработчиков и мануал, также описана функция которую экспортирует эта DLL со всеми параметрами но вот не задача, не могу достучаться до этой функции, мануал и длл прилогаю в архиве. А также маленький фрагмент кода: как я подключаюсь к длл
Код:
 type
TOperation =
(UPLOAD,
DOWNLOAD,
ERASEPLULIST,
ERASEOBJECT);


TOperationResult =
(NON_ERROR, OPEN_FILE_ERR, READ_FILE_ERR,
WRIT_FILE_ERR, NETWORK_OPEN_ERR, NETWORK_READ_ERR, NETWORK_WRIT_ERR,
MACHINE_READ_ERR, MACHINE_WRIT_ERR, MACHINE_NOREC_ERR,
MACHINE_SPACE_ERR, MACHINE_UNDEF_ERR);


var
Form1: TForm1;
Texecute: function (AOperation: TOperation; AScaleIP: PChar; AFileName: PChar; ACommand: BYTE):TOperationResult;
LibHandle: THandle;

implementation



{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
@Texecute:= nil;

LibHandle := LoadLibrary('digitcpdrv.dll');

if LibHandle >= 32 then
begin

@Texecute := GetProcAddress(LibHandle, 'execute');
if @Texecute <> nil then
ShowMessage('функция на месте =)');
end;

FreeLibrary(LibHandle);
end;
 

Вложения