Autor Téma: Ahoj měl bych prozbyčku nevíte jak se připojit k Wifi přes Windows a k 3G USB?  (Přečteno 696 krát)

Offline jtfcobra

  • Plnoletý
  • ***
  • Příspěvků: 240
  • Karma: 0
    • Verze Delphi: XE4,XE5 v testovní
    • XDA Developers
Ahoj měl bych prozbyčku nevíte jak se připojit k Wifi přes Windows a 3G USB?

Operační systém Windows 8

1)Wifi to vůbec nevím jak?poradíte?


2)Zkoušel jsem na 3G USB Modem Huawey a nic
Kód: Delphi [Vybrat]
  1. function DialDFUE(DFUEName: string; var ErrorCode: integer; var ConId: DWord):
  2.   boolean;
  3. var
  4.   ConNum: LPDWORD;
  5.   ReturnCode: DWord;
  6. begin
  7.   result := false;
  8.   ErrorCode := 0;
  9.   New(ConNum);
  10.   try
  11.     ReturnCode := InternetDial(Application.Handle, PChar(DFUEName),
  12.       INTERNET_AUTODIAL_FORCE_UNATTENDED, ConNum, 0);
  13.     ErrorCode := ReturnCode;
  14.     if ReturnCode = ERROR_SUCCESS then
  15.     begin
  16.       result := true;
  17.       ConId := ConNum^;
  18.     end;
  19.   finally
  20.     Dispose(ConNum);
  21.   end;
  22. end;
  23.  
  24.  
  25. procedure TForm1.Button8Click(Sender: TObject);
  26. Var ConID : DWORD;
  27.     Errorcode : Integer;
  28. begin
  29. conid:=0;
  30. errorcode:=0;
  31. DialDFUE('JAGNET_2G',Errorcode,ConID);
  32. end;
  33.  
  34.  

3)Přes synapse to napsalo connect ale ve Windows Nic:
Kód: Delphi [Vybrat]
  1. AT+cgdcont=1,"IP","internet.t-mobile.cz"
  2. ATDT *99***1#
  3.  
« Poslední změna: 27-11-2014, 13:08:57 od jtfcobra »

Offline KarelHorky

  • Plnoletý
  • ***
  • Příspěvků: 196
  • Karma: 8
    • Verze Delphi: 7, XE6, Delphi 10.2 Tokyo
Wifi je jednoduché. Přes wifi komunikuješ jako přes pevnou síť, akorát je to pomalejší. Zapneš si wifi, napojíš se na router a máš dostupnou síť, jako by ses připojil kabelem. Vyzkoušej si komunikaci pomocí socketů s protokolem TCP/IP, to je na to dělané. Když si dokážeš PINGnout z jednoho zařízení na druhé a naopak, tak to bude fungovat i se sockety.


Offline jtfcobra

  • Plnoletý
  • ***
  • Příspěvků: 240
  • Karma: 0
    • Verze Delphi: XE4,XE5 v testovní
    • XDA Developers
U Wifi je to jasné :)

Ale potřebuji aby Apka v delphi se připojila přes Wifi k bodu: xxx

např:
Kód: Delphi [Vybrat]
  1. Wmi-Conect-XXX
  2.