29-07-2011, 02:06 PM
حالت كتابة برنامج بسيط في دلفي يقوم بفحص مجموعة من البورتات
موجودة في مكون richedit ..
لكن لم يعمل
شوفو الكود و خبروني عن الخطأ بليز
موجودة في مكون richedit ..
لكن لم يعمل
شوفو الكود و خبروني عن الخطأ بليز
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer ;
begin
TcpClient1.RemoteHost := Edit1.Text;
for i:=0 to RichEdit2.lines.count do
TcpClient1.RemotePort := RichEdit2.lines.Strings [i];
StaticText1.caption := 'Checking '+ Edit1.Text +' on '+ RichEdit2.lines.Strings [i];
if TcpClient1.Connect then
RichEdit1.lines.Add(Edit1.Text + ' : ' + RichEdit2.lines.Strings [i] + ' / Open');
end;