unit TestConnectioni;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdTCPServer;
type
TForm1 = class(TForm)
conn: TADOConnection;
Button: TButton;
query: TADOQuery;
btn1: TButton;
tcpclient: TIdTCPClient;
tcpserver1: TIdTCPServer;
tcpserver: TButton;
procedure ButtonClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure tcpserver1Connect(AThread: TIdPeerThread);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ButtonClick(Sender: TObject);
var
value:string;
count:Integer;
begin
Self.conn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=192.168.0.82';
conn.DefaultDatabase := 'atm';
conn.LoginPrompt := false;
conn.Open('sa','Pass!23');
query.Connection := conn;
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from [atmhost]');
query.Open;
if not query.IsEmpty then
begin
while not query.Eof do
begin
value := query.FieldByName('id').AsString;
query.Next;
end;
end;
query.Close;
conn.Close;
ShowMessage('the size of is:'+value);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
Self.tcpclient.Host := '192.168.0.65';
tcpclient.Port := 8555;
tcpclient.Connect(1000);
tcpclient.Write('delphi test');
tcpclient.Disconnect;
end;
procedure TForm1.tcpserver1Connect(AThread: TIdPeerThread);
begin
ShowMessage('get the connection');
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdTCPServer;
type
TForm1 = class(TForm)
conn: TADOConnection;
Button: TButton;
query: TADOQuery;
btn1: TButton;
tcpclient: TIdTCPClient;
tcpserver1: TIdTCPServer;
tcpserver: TButton;
procedure ButtonClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure tcpserver1Connect(AThread: TIdPeerThread);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ButtonClick(Sender: TObject);
var
value:string;
count:Integer;
begin
Self.conn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=192.168.0.82';
conn.DefaultDatabase := 'atm';
conn.LoginPrompt := false;
conn.Open('sa','Pass!23');
query.Connection := conn;
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from [atmhost]');
query.Open;
if not query.IsEmpty then
begin
while not query.Eof do
begin
value := query.FieldByName('id').AsString;
query.Next;
end;
end;
query.Close;
conn.Close;
ShowMessage('the size of is:'+value);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
Self.tcpclient.Host := '192.168.0.65';
tcpclient.Port := 8555;
tcpclient.Connect(1000);
tcpclient.Write('delphi test');
tcpclient.Disconnect;
end;
procedure TForm1.tcpserver1Connect(AThread: TIdPeerThread);
begin
ShowMessage('get the connection');
end;
end.