u_addconf.pas.~14~

使用delphi编写的简单socket请求发送工具TCP协议

unit u_AddConf;

interface

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

type
  Tfrm_AddConf = class(TForm)
    btn_OK: TButton;
    btn_Cancel: TButton;
    sp_1: TShape;
    lv_List: TListView;
    procedure btn_OKClick(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    m_Set: TIniFile;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_AddConf: Tfrm_AddConf;

implementation

{$R *.dfm}

procedure Tfrm_AddConf.btn_CancelClick(Sender: TObject);
begin
  Self.Close;
end;

procedure Tfrm_AddConf.btn_OKClick(Sender: TObject);
begin
  Self.Close;
end;

procedure Tfrm_AddConf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  m_Set.Free;
end;

procedure Tfrm_AddConf.FormCreate(Sender: TObject);
var
  v_Addrs: TStrings;
  v_Count: Integer;
  v_List:  TListItem;

  v_Addr:  string;
begin
  m_Set := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Params.ini');
  v_Addrs := TStringList.Create;
  m_Set.ReadSection('ADDRCONF', v_Addrs);
  for v_Count := 0 to v_Addrs.Count - 1 do
  begin
    v_Addr := v_Addrs.Strings[v_Count];
    if Length(Trim(v_Addr)) = 0 then Continue;
    
    v_List := lv_List.Items.Add;
    v_List.Caption := copy(v_Addr, 0, Pos('@', v_Addr) - 1);
    v_List.SubItems.Add(copy(v_Addr, Pos('@', v_Addr) + 1, length(v_Addr)));

    v_List.SubItems.Add(m_Set.ReadString('DESCRPS', v_Addr, ''));
  end;
  v_Addrs.Free;
end;

end.