_miki_
Сообщений: 277
Оценки: 0
Присоединился: 2009-01-21 21:45:45.676666
|
как мне подключить packet.dll в проект delphi??? вот пример
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FAdapterDescs: array[0..4-1] of ADAPTER_DESC;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
FAdapterCount:Integer;
Begin
//Получим доступние адаптера
PacketGetAdapterNames(@FAdapterDescs, 4, @FAdapterCount);
//Получим им'я адаптера
FAdapterName:= StrPas (@FAdapterDescs[0].SzAdapterDesc);
//Расскажем о юзаном адаптере
Edit2.Text:= FAdapterName;
end;
end.
выдает ошибку Undeclared identifier: 'ADAPTER_DESC'
|