مشکل در query در برنامه نویسی تحت شبکه Socket Connection

[beny]

با سلام و خسته نباشید

در برنامه نویسی مبتدی هستم و این پروژه را دانلود کردم و همه چیش درسته فقط میخوام کلاینت یه گزارش بگیره باید کوئری بگیرم. امکانش هست دوستان طریقه ارسال کوئری به سرور را راهنمایی کنند.

149

ممنون

[beny]

با سلام

کد زیر رو تو همین سایت پیدا کردم ولی نمی دونم چطور باید استفاده کنم. آیا کسی از دوستان و اساتید امکان داره کمک کنن ؟


procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);


procedure SendMsg(datas1: string);
begin
AContext.Connection.IOHandler.WriteLn(datas1, Tencoding.Unicode);
end;
var
Qry1: TADOQuery;
TCPClient: TIdTCPClient;
data1: string;
begin
data1 := AContext.Connection.IOHandler.ReadLn();
CoInitialize(nil);
Qry1 := TADOQuery.Create(nil);
try
Qry1.Connection := ADOConnection1;
Qry1.CursorLocation := clUseClient;
Qry1.LockType := ltOptimistic;
Qry1.CursorType := ctStatic;


Qry1.SQL.Clear;
Qry1.SQL.Append('select * from Login where (UserNameS=''' + data1
+ ''')');
Qry1.Open;


if Qry1.RecordCount = 1 then
SendMsg(Qry1.FieldByName('CodeS').Text);
finally
Qry1.Free;
end;
CoUninitialize();
end;


ممنون