WinPing

[BSW]

Hi,

ich hätte gerne ein Ping Programm gecodet bekommen...
Es sollte so ungefähr aussehen ...
[IP]
[IP wurde in xms gepingt]
[PinG!]

MFG
BSW

PS: Bitte Source-Code+Komponente+EXE packen (zip,rar,ace usw.),
da ich die Trial Version von Delphi 7 habe und nicht alle Komponente habe ...
danke :)

[Luckie]

Wie viel zahlst du?

BTW Delphi 7 Enterprise gibt es nicht als Trial meines Wissens.

Nur zur Erläuterung, was das hier ist. Dies ist ein Delphi Forum, wo sich die Benutzer gegenseitig helfen ihre Probleme zu lösen. Dies ist kein Board um sich kostenlos seine Software programmieren zu lassen. Hinzukommt, dass du die Sourcen auch noch haben willst. Da keimt der Verdacht auf, dass du am Ende nur das Copyright änderst und die Software als dein geistiges Eigentum ausgibst.

Da du ja eine Delphi Version besitzt und wenn du bereit bist es selber zu machen, sind wir gerne bereit, dir bei eventuell auftretenden Problemen zu helfen. Solltest du noch ein Anfänger sein, würde ich dir empfehlen mit kleineren Sachen anzufangen und erst mal die Grundlagen zu lernen. Bill Gates hat auch nicht mit Windows angefangen. Als Hilfe seien dir die Seiten www.delphi-treff.de und www.delphi-source.de ans Herz gelegt. Diese bieten sowohl Grundlagentutorials als auch Buchbesprechungen.

Solltest du dazu nicht bereit sein, dann kuck auf den bekannten Downloadportalen, ob es schon etwas entsprechendes gibt, oder wende ich an eien Softwarefirma, die dir das Programmiert.

[BSW]

naja von Ping hab ich eins ...
aber das funktioniert nicht :(

Delphi-Quellcode:

unit u_ping;
(*@/// interface *)
interface

(*@/// uses *)
uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  icmp,
  ExtCtrls;
(*@\\\0000000C01*)

type
(*@///   Tfrm_ping = class(TForm) *)
Tfrm_ping = class(TForm)
  Ping: TPing;
  lbl_host: TLabel;
  edt_hostname: TEdit;
  mem_out: TMemo;
  btn_start: TButton;
  btn_break: TButton;
  Timer: TTimer;
  procedure btn_startClick(Sender: TObject);
  procedure PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);
  procedure btn_breakClick(Sender: TObject);
  procedure TimerTimer(Sender: TObject);
end;
(*@\\\0000000A1D*)

var
  frm_ping: Tfrm_ping;
(*@\\\0000000301*)
(*@/// implementation *)
implementation

{$R *.DFM}

uses
  ip_misc;

var
  nr: integer;

(*@/// procedure Tfrm_ping.btn_startClick(Sender: TObject); *)
procedure Tfrm_ping.btn_startClick(Sender: TObject);
begin
  ping.hostname:=edt_hostname.text;
  mem_out.lines.clear;
  nr:=0;
  timer.enabled:=true;
  end;
(*@\\\*)
(*@/// procedure Tfrm_ping.PingPing(sender:TObject; status:Integer; ip,roundtime:Longint); *)
procedure Tfrm_ping.PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);
begin
  inc(nr);
  case status of
    ip_success:
      mem_out.lines.add(inttostr(nr)+'. '+inttostr(roundtime)+'ms');
    else
      mem_out.lines.add(inttostr(nr)+'. Failed')
    end;
end;
(*@\\\003E000601000601000801000A01000709000709*)
(*@/// procedure Tfrm_ping.btn_breakClick(Sender: TObject); *)
procedure Tfrm_ping.btn_breakClick(Sender: TObject);
begin
  ping.terminate;
  timer.enabled:=false;
  end;
(*@\\\*)
(*@/// procedure Tfrm_ping.TimerTimer(Sender: TObject); *)
procedure Tfrm_ping.TimerTimer(Sender: TObject);
begin
  ping.action;
  end;
(*@\\\*)
(*@\\\0000000C31*)
end.
(*@\\\0001000011000301*)

MFG
BSW

[BungeeBug]

@Luckie er meint arscheinlich die Architect Trail von Borland :)

[BSW]

THX habs geschafft da musste ich was mit ner "AH_COMP.dpk" machen :?

Hab voll kein Plan was das ist ... wäre nett wenn du mir das sagen könntest :)

MFG
BSW

[Christian Seehase]

Moin Zusammen,

ich hab' den Thread mal verschoben.

[Daniel]

Zitat:

Zitat von BSW

Hi,

ich hätte gerne ein Ping Programm gecodet bekommen...

Siehe hierzu:
http://www.delphipraxis.net/internal...?p=71879#71879


*** (c)losed ***