Table of Contents
Advertisement
begin
Memo2.Lines.Add(WSocket.ReceiveStr);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WSocket.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WSocket.Addr:=Edit1.Text;
WSocket.Connect;
end;
end.
6.3.3.
TCPTestUnit.dfm
object Form1: TForm1
Left = 465
Top = 240
Width = 449
Height = 554
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 24
Top = 16
Width = 63
Height = 13
Caption = 'webMATE IP'
end
object Button1: TButton
Left = 24
Top = 480
Width = 75
Height = 25
Caption = 'Send'
TabOrder = 0
OnClick = Button1Click
end
object Memo1: TMemo
Left = 24
Top = 56
Width = 401
Height = 137
Lines.Strings = (
'<?xml version="1.0" encoding="UTF-8"?>'
'<REQUEST ID="1">'
' <VERSION>0.1.0</VERSION>'
' <COMMAND NAME="GETDEVICES" />'
'</REQUEST>')
TabOrder = 1
ComTec GmbH
WEBMCA Programming
6-11
Advertisement
Table of Contents
