unit1.pas

Delphi 网络通信协议代码,是多种网络协议的实现代码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
    GUID: TGUID;
    WCLID: array[0..127] of WideChar;
    Start:Integer;
begin
  CoCreateGUID(GUID);
  StringFromGuid2(GUID,WCLID,SizeOf(WCLID) div 2);

  Edit1.Text:=WideCharToString(WCLID);
  {
  TGUID = packed record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
   use
    {20ECD781-43BA-11D5-B963-5254AB34C3EF}
  //get start position
  Start:=Length(Edit1.Text)-12;
  Edit2.Text:=Copy(Edit1.Text,Start,12);
end;

end.