WLanManager WLanAPI

[nitschchedu]

Ok um mal zusehen wie es ankommt möchte ich hier meinen WLan Manager vorstellen ^^.
Das Teil basiert auf der WLanAPI und ist noch nicht mal im Alpha status.
Aber es kan schon die Wlan Geräte auslesen und das Netzwerk Scannen ...

Benötig wird noch das Update von Microsoft (WlanAPI.dll)hier

Gestestet auf: Windows XP

Das Hauptthema soll eigentlich auf die WLanAPI gehen aber das mache ich nochmal anders
http://img148.imageshack.us/img148/4...enannt1gz0.jpg

[nitschchedu]

Jo das NDIS ist nicht nur fürs WLan damit kann man jedes Netzwerk Gerät ansprechen. (Info Wiki)
Mittler weile sind es jetzt 1490 Zeilen (über die Häflte).
Ein Programm für das übersetzten zuschreiben gestaltet sich schwierig da man je nach situation das vom C ins Delphi übersetzt .

Ich Glaube wir sollten mit dem Thema NDIS mal die sektion wegseln

[nitschchedu]

So leute ndis geht jetzt aber ich bekomme jetzt einen Adressfehler

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
   select: Integer;
  i: Integer;
  element: Tndu_NDIS_WLAN_BSSID;
  wstring: TnduWString;
  Item: TListItem;
begin
   try
      if listviewWLanDevice.Selected.Selected then
    begin
       select := listviewWLanDevice.Selected.Index;
    end;
  except
     memInfo.Lines.Add('Kein Geräte ausgwählt!');
    Exit;
  end;

  WlanNDIS.SelectDevice(select);
  WlanNDIS.Scan;

  wstring := TnduWString.Create;

  for i := 0 to WlanNDIS.ScanListCount - 1 do
  begin
    Item := listviewndis.Items.Add; <-- Fehler
    element := WlanNDIS.GetScanListItem(i);
    Item.Caption := ' ';
    Item.ImageIndex := 0;
    Item.SubItems.Add(wstring.HexStringToStr(
      wstring.ByteArrayToHexStr(element.Ssid.Ssid,
      element.Ssid.SsidLength)));
  end;

  wstring.Free;
end;

Wenn jemand ne Idee hat

[vepman]

Zitat von nitschchedu:

Wenn jemand ne Idee hat

Hi nitschchedu,
kannst du nduWstring.pas ins rar reinpacken, ohne die läuft es nicht.

Gruß vepman

[nitschchedu]

Ganz schön viel verlang hier, meine gute Wstring Unit ^^ ... ich will mal nicht so sein .
Seit aber nett zu meiner Unit ... schreibe schon sehr lange drann
Verbesserungsvorschläge sind auch erwünscht ^^!

[vepman]

Zitat von nitschchedu:

Ganz schön viel verlang hier, meine gute Wstring Unit ^^ ... ich will mal nicht so sein .
Seit aber nett zu meiner Unit ... schreibe schon sehr lange drann
Verbesserungsvorschläge sind auch erwünscht ^^!

Echt nett von dir, ich weiß es zu würdigen.

Gruß vepman

[yanyisong]

how to connect?

[CodeX]

Hallo nitschchedu,
arbeitest Du noch an dem Projekt? Was ist der aktuelle Stand?
Meines Wissens nach gibt es keine vergleichbare Übersetzung der WLAN-Schnittstellen, oder doch?

[r_amse_s]

Hallo Leute,

gibt es etwas Neues?

[nitschchedu]

Hallo Leute ... leider mache ich kein Delphi mehr daher gebe ich die Source voll kommend frei =) .

[r_amse_s]

und wo ?