Российский производитель и разработчик сертифицированного измерительного оборудования с 1987 года


L-761 и Delphi 5

Вы не вошли.

 Поиск | Регистрация | Вход 

Виталий
18.10.2001 12:06:37
#1

Гость

Re: L-761 и Delphi 5

Здравствуйте, это опять я.
Пишу программу на Delphi 5.
Запускаю ваш пример - работает.
Вставляю ваш код из примера в то же
место, где и у вас (событие Form.Create)
опять не работает функция LoadBios.

18.10.2001 14:37:46
#2

Сотрудник "Л Кард"
Откуда: Москва
Здесь с 23.04.2014
Сообщений: 3,727

Re: L-761 и Delphi 5

нужен текст примера - если у меня работает а уВас нет где то Вы ошибаетесь

Виталий
19.10.2001 10:17:44
#3

Гость

Re: L-761 и Delphi 5

Текст примера
--------------------------------------------------
program Project1;

uses
  Forms,
  Unit1 in /'Unit1.pas/' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
--------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,VxdApi,ioctl,Unit2;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  dev       : DEV_REG_UNI;
  pd        : PLATA_DESCR;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var dw : DWORD;
begin
   dev.size := sizeof(dev);
   dw := OpenLDevice(50,@dev);
   if dw = INVALID_HANDLE_VALUE then MessageBox(Handle,/'Cannot open the device/',/'/',MB_OK);

   pd.size := sizeof(pd);
   dw := ReadPlataDescr_PLX(@dev,@pd,0);
   if dw = 0 then MessageBox(Handle,/'Cannot get description/',NIL,MB_OK);

   dw := LoadBios(@dev,{BiosName}pd.BrdName,0,0);
   if dw = 0 then MessageBox(Handle,/'Cannot load BIOS/',/'/',MB_OK);

   CloseLDevice(@dev);

   Edit1.Text := pd.BrdName;
   Edit2.Text := pd.SerNum;
end;

end.
--------------------------------------------------
В projects/options/directories
записана директория с файлами VxdApi.dcu и т.д.

19.10.2001 13:55:44
#4

Сотрудник "Л Кард"
Откуда: Москва
Здесь с 23.04.2014
Сообщений: 3,727

Re: L-761 и Delphi 5

а биос там есть в этой же директории l761.bio

Виталий
19.10.2001 14:28:02
#5

Гость

Re: L-761 и Delphi 5

Теперь есть, спасибо.

Тойво
07.02.2002 18:09:36
#6

Гость

Re: L-761 и Delphi 5

У меня пиратская версия Delphi 5. Может быть поэтому у меня нет свойства Canvas, или этот пакет нужно установить самому. И еще пришлите примеры программ с использованием библиотек DLL

miha
06.04.2007 21:29:01
#7

Гость

Re: L-761 и Delphi 5

а где есть этот пример? тот, что лежит в папке l7xx.dpr, для другой платы... на компакте тоже не могу найти.