Hey
Habe mir von euch den Codeschnipsel zum loggen des
WEP Keys gezogen. Bekomm aber immer einen Error,
der wie folgt aussieht:
Es handelt sich dabei um folgende Zeile:
Der ganze Code:
Code
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
- type
- TForm1 = class(TForm)
- mmoLog: TMemo;
- btnDump: TButton;
- procedure btnDunpClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- uses
- uWEPUtils, uUtils;
- {$R *.dfm}
- function GetDataCallBack(
- DataType: Cardinal;
- Data: Pointer;
- DataSize: Cardinal
- ): Boolean;
- begin
- case DataType of
- 1:
- begin
- FrmMain.mmoLog.Lines.Add(PAnsiChar(Data))
- end;
- 2:
- begin
- FrmMain.mmoLog.Lines.Add(PAnsiChar(Data));
- end;
- 3:
- begin
- FrmMain.mmoLog.Lines.Add(DumpData(Data, DataSize));
- end;
- end;
- end;
- procedure TFrmMain.btnDumpClick(Sende: TObject);
- begin
- mmoLog.Lines.Clear;
- GetWZCSVCData(@GetDataCallBack);
- end;
- end.
Bitte helft mir
Coffee