WLanManager WLanAPI

[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 :angel: :mrgreen:

[nitschchedu]

So leute ndis geht jetzt :hello: aber ich bekomme jetzt einen Adressfehler :cry:

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 :gruebel:

[vepman]

Zitat:

Zitat von nitschchedu

Wenn jemand ne Idee hat :gruebel:

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 :-D .
Seit aber nett zu meiner Unit ... schreibe schon sehr lange drann ;-)
Verbesserungsvorschläge sind auch erwünscht ^^!

[vepman]

Zitat:

Zitat von nitschchedu

Ganz schön viel verlang hier, meine gute Wstring Unit ^^ ... ich will mal nicht so sein :-D .
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. :thumb:

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 :)?