Cara Membuat Software Create Server Adhoc Dengan Delphi7

Cara Membuat Software Create Server Adhoc Dengan Delphi7 - Adhoc adalah sebuah server yang anda bisa gunakan untuk menyambungkan PC anda dengan PC teman atau kerabat yang nantinya dapat anda gunakan untuk mengirim file atau bermain game secara online dengan teman-teman anda,
dan ksempatan kali ini saya akan memberikan tutorial bagaimana cara membuat software nya agar lebih simple pada saat anda membuatnya atau memulainya kembali atau bahkan anda bisa menyetopnya dengan aplikasi ini..

Bahasa pemerograman yang kita gunakan kali ini adalah yaitu bahasa pemerograman Tingkat Tinggi borlan Delphi versi 7 , yang merupakan bahasa pemerograman yang di kembangkan borland kira-kira tahun 2000'an dulu,jika anda belum mempunyai aplikasi ini anda bisa mendownload nya pada articel saya sebelumnya yaitu pada Download Borlan Delphi7 Full Serail Key

Persiapan 

1. anda tentunya sudah mempunyai 1 buah PC/Laptop
2. 1 Buah Software Delphi7
3. Kesabaran
4. Ketelitian
5. Ketekunan :p

Langkah-Langkah Pembuatan Server Adhoc 

• Langkah pertama adalah anda harus terlebih dahulu membuka Delphi7 kemudian membuat project baru

tambahakan componen2 yang di butuhkan : 2 buah Label Caption : SSID & KEY, 2 Buah Edit Nama : SSID & KEY, 2 Buah Button Caption : Create & Start, dan 1 buah memo untuk melihat log notifikasinya ,,atau anda juga bisa desainya sperti ini :

• 

• Tambahkan Componen Delphi7 yaitu DosCommand,yang bisa anda download DI SINI
  
  
• klik 2 kali pada Button Create tadi kemudian pastekan Coding di bawah ini tepat di atas begin

var

  dos : TDosCommand;

  AM : string;

•  Kemudian masukan Coding ini tepat di bawah begin

  memo.Clear;

  if SSID.GetTextLen < 1 then

  begin

    Application.MessageBox('SSID Tidak Boleh Kosong Bos ^_^!', 'Error', MB_OK or MB_ICONERROR);

  end

  else if KEY.GetTextLen < 8 then

    begin

    Application.MessageBox('Password minimal 8 karakter Bos ^_^.', 'Error', MB_OK or MB_ICONERROR);

  end

  else

  begin

    dos := TDosCommand.Create(nil);

    AM := 'netsh wlan set hostednetwork mode=allow ssid='+SSID.Text+' key='+KEY.Text+'';

    dos.CommandLine := AM;

    dos.OutputLines := memo1.Lines;

    dos.Execute;

    beep;

  end;

•  Kemudian klik 2 kali pada Button Start,kemudian masukan Coding ini tepat di atas begin

var

  dos : TDosCommand;
  AM : string;

• Kemudian masukan Coding ini tepat di bawah Code Begin

  if Button1.Caption = 'Start' then
  begin
    memo.Clear;
    dos := TDosCommand.Create(nil);
    AM := 'The hosted network started';
    dos.CommandLine := AM;
    dos.OutputLines := memo.Lines;
    dos.Execute;
    Button1.Caption := 'Stop';
    beep;
  end
  else if Button1.Caption = 'Stop' then
  begin
    memo1.Clear;
    dos := TDosCommand.Create(nil);
    AM := 'The hosted network stopped';
    dos.CommandLine := AM;
    dos.OutputLines := memo1.Lines;
    dos.Execute;
    Button1.Caption := 'Start';
    beep;
  end;
end;

• Done coba Save dan Run project anda ^_^

Atau anda bisa download contoh aplikasi nya DI SINI