FAST ComTec MCDWIN User Manual
                                                           | |
Contents
| 
WEBMCA ProgrammingComTec GmbH 6-106.3. Delphi programming exampleThe example is based on the ICS - Internet Component Suitehttp://www.overbyte.behttp://www.rtfm.be/fpiette/indexuk.htmhttp://users.swing.be/francois.piette/indexuk.htmCopyright (C) 1997-2001 by François PIETTERue de Grady 24, 4053 Embourg, Belgium6.3.1. TCPTest.dprprogram TCPTest;usesForms,TCPTestUnit in 'TCPTestUnit.pas' {Form1};{$R *.res}beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.Run;end.6.3.2. TCPTestUnit.pasunit TCPTestUnit;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs, WSocket, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Memo1: TMemo;Memo2: TMemo;WSocket: TWSocket;Edit1: TEdit;Label1: TLabel;Button2: TButton;procedure Button1Click(Sender: TObject);procedure WSocketDataAvailable(Sender: TObject; ErrCode: Word);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button2Click(Sender: TObject);private{ Private-Deklarationen }public{ Public-Deklarationen }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginWSocket.SendStr(Memo1.Text+#0);end;procedure TForm1.WSocketDataAvailable(Sender: TObject; ErrCode: Word); |
This manual is suitable for:
manualsdatabase
Your AI-powered manual search engine