netcfg.pas

来自「一个类似REALPLAY的播放器的客户端,可以播放UNIX/LINUX下的文本文」· PAS 代码 · 共 72 行

unit NetCfg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TNetFrm=class(TForm)
    BtnOk: TBitBtn;
    BtnCancel: TBitBtn;
    BtnConnectTest: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    TcpClient1: TTcpClient;
    edtRemotePort: TMaskEdit;
    edtRemoteIp: TEdit;
    procedure TcpClient1Connect(Sender : TObject);
    procedure TcpClient1Error(Sender : TObject);
    procedure TcpClient1Send(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure BtnOkClick(Sender : TObject);
    procedure BtnCancelClick(Sender : TObject);
    procedure BtnConnectTestClick(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure _PROC_004ACEF5(Sender : TObject);
    procedure _PROC_004ACF30(Sender : TObject);
    procedure _PROC_004ACF38(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  NetFrm: TNetFrm;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TNetFrm.TcpClient1Connect(Sender : TObject);
begin
(*

* Possible String Reference to: '连接成功'
|
004ACB04   B818CB4A00             mov     eax, $004ACB18

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004ACB09   E8AE12F8FF             call    0042DDBC
004ACB0E   C3                     ret

*)
end;

procedure TNetFrm.TcpClient1Error(Sender : TObject);
begin
(*
004ACB24   55                     push    ebp
004ACB25   8BEC                   mov     ebp, esp
004ACB27   6A00                   push    $00
004ACB29   6A00                   push    $00
004ACB2B   53                     push    ebx
004ACB2C   8BD9                   mov     ebx, ecx
004ACB2E   33C0                   xor     eax, eax
004ACB30   55                     push    ebp

* Possible String Reference to: '閚u