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.
Alles anzeigen
Bitte helft mir
Coffee