ychatu36.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 95 行

unit YchatU36;

interface

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

type
  TForm32 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Panel4: TPanel;
    Edit1: TEdit;
    Button3: TButton;
    CheckBox1: TCheckBox;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form32: TForm32;

implementation

uses YchatU1;

{$R *.dfm}

Function ConvertPacketToStr(S: String): String;
Var
 N: Integer;
 C: Char;
 BuildStr,Tmp,Tmp2: String;
 Ex: Boolean;
Begin
 S:=' '+S;
 Ex:=False;
 Tmp:=S;
 Tmp:=Form1.ReplaceStr(Tmp,#$0d+#$0a,' ');
 BuildSTR:='';
 Repeat
  If (Form1.Instr(' ',tmp,2)=3) and (Tmp[1]=' ') Then
   Begin
     Delete(Tmp,1,1);
     Tmp2:=Copy(Tmp,1,2);
     Delete(Tmp,1,2);
     Try
       C:=Chr(StrToInt('$'+tmp2));
       Except
     End;
    BuildStr:=BuildStr+C;
   End
    else
   Delete(Tmp,1,1);
 Until (Ex=True) Or (Length(Tmp)<=0);
 Result:=BuildStr;
End;

procedure TForm32.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm32.Button1Click(Sender: TObject);
Var
 S: String;
begin
If CheckBox1.Checked=False Then
  s:=Form1.PacketToPktStr(form1.ConvertPacketToStr(Memo1.Text))
   else
  S:=form1.ConvertPacketToStr(Memo1.Text);
 Edit1.Text:=s;
end;

procedure TForm32.Button3Click(Sender: TObject);
Var
 S: String;
begin
 s:=ConvertPacketToStr(Memo1.Text);
 Form1.DealWithYMSGPacket(S);
end;

end.