Informatika és tudomány

Hogyan lehet lekerdezni az IP cimet Delphiben?
  • Roll
    #32
    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

    type
    TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button4: TButton;
    Edit5: TEdit;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}
    type szemrec=record
    nev,cim,mhely:string[20];
    ber:longint;
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    var f:file of szemrec;
    t:textfile;
    st,smhely,sber,snev,scim:string;
    k:integer;
    rec:szemrec;
    begin
    assignfile(t,'d:\delphi\roland\feladat\szöveges.txt');
    reset(t);
    assignfile(f,'d:\delphi\roland\feladat\tipusos.dat');
    rewrite(f);
    while not eof(t) do
    begin
    readln(t,st);
    k:=pos('&',st);
    snev:=copy(st,1,k-1);
    delete(st,1,k);
    end;
    begin
    k:=pos('&',st);
    scim:=copy(st,1,k-1);
    delete(st,1,k);
    end;
    begin
    k:=pos('&',st);
    smhely:=copy(st,1,k-1);
    delete(st,1,k);
    end;
    begin
    sber:=copy(st,1,length(st));
    end;
    begin
    rec.nev:=snev;
    rec.cim:=scim;
    rec.mhely:=smhely;
    rec.ber:=strtoint(sber);
    write(f,rec);
    end;
    closefile(t);
    closefile(f);
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    var t:file of szemrec;
    rec:szemrec;
    begin
    assignfile(t,'d:\delphi\roland\feladat\tipusos.dat');
    reset(t);
    while not eof(t) do
    begin
    read(t,rec);
    memo1.lines.add(rec.nev+' '+rec.cim+' '+rec.mhely+' '+inttostr(rec.ber));
    end;
    closefile(t);
    end;
    procedure TForm1.Button3Click(Sender: TObject);
    var t:file of szemrec;
    rec:szemrec;
    begin
    assignfile(t,'d:\delphi\roland\feladat\tipusos.dat');
    reset(t);
    seek(t,filesize(t));
    rec.nev:=edit1.text;
    rec.cim:=edit2.text;
    rec.mhely:=edit3.text;
    rec.ber:=strtoint(edit4.text);
    write(t,rec);
    closefile(t);

    end;

    procedure TForm1.Button4Click(Sender: TObject);
    var t:file of szemrec;
    rec:szemrec;
    kernev:string;
    begin
    assignfile(t,'d:\delphi\roland\feladat\tipusos.dat');
    reset(t);
    kernev:=edit5.text;
    while not eof(t) and (kernev<>rec.nev) do
    begin
    read(t,rec);
    truncate(t);
    end;
    closefile(t);
    end;


    procedure TForm1.Button5Click(Sender: TObject);
    var t:file of szemrec;
    rec:szemrec;
    g:textfile;
    stnev,stcim,stmhely:string[30];
    stber:longint;
    begin
    assignfile(t,'d:\delphi\roland\feladat\tipusos.dat');
    reset(t);
    assignfile(g,'d:\delphi\roland\feladat\szoveg.txt);
    rewrite(g);
    begin
    while not eof(t) do
    begin
    read(t,rec);
    stnev:=rec.nev;
    stcim:=rec.cim;
    stmhely:=rec.mhely;
    stber:=rec.ber;
    begin
    writeln(t,stnev);
    writeln(t,stcim);
    writeln(t,stmhely);
    writeln(t,stber);
    end;
    closefile(t);
    closefile(g);
    end;
    end.