المشاركات : 14
شكرا لك أخي B.M.AbdelAziZ
المشاركات : 3,703
إقتباس : -1 للاول و ال0 للثاني و +1 للثالثلا
المشاركات : 14
ها هو المشروع اللي أطوره
الملفات المرفقة Admin Finder.rar (الحجم : 2.75 ك ب / التحميلات : 13)
المشاركات : 654
السلام عليكم
أظن اني فهمت قصد
ان تبحث عن شيء مثل
ListBox.Selected[Index] := True;
الخاصية في ListBox ولا توجد في Memo
مثال
كود :
var
i: Integer;
begin
for i := 0 to ListBox.Items.Count -1 do
begin
ListBox.Selected[i] := True;
Sleep(1000); // توقف ثانية
end;
end;
على حسب ما أرى مشروعك لن تحتاج Timer
لأنك تستعمل idhttp
لا يمكن حجز مدة معينة لاستجابة الخادم
المشاركات : 14
شكرا لك و الان كيف سأستخدم القيمة التي يجلبها من ListBox
المشاركات : 654
وضعناها في متغير
كود :
var
s: string;
begin
s := ListBox.Items.Strings[Index];
end;
المشاركات : 14
المشروع لم يعمل كما أردت المهم تشكرون جميعا على الردود
المشاركات : 654
السلام عليكم
المنتدى غني بالمواضيع ابحث فقط
ادا كنت مبتدا يوجد قسم للمبتدئين و مواضيع ودورة منتدى دلفي للعرب انطلق منها
كما ارى ان سؤالك تمت الاجابة عليه
عموما تفظل هدا ما تبحث عنه
كود :
uses IdHTTP;
function IS_URL_Valid(const URL: string; const Timeout: Integer): boolean;
var
HTTP: TIdHTTP;
begin
Result := False;
HTTP := TIdHTTP.Create(nil);
try
//HTTP.ConnectTimeout := Timeout;
//HTTP.ReadTimeout := Timeout;
try
HTTP.Head(URL);
except
Result := False;
end;
if HTTP.ResponseCode = 200 then
Result := True;
finally
HTTP.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
URL: string;
begin
URL := LowerCase(Edit1.Text);
if URL = '' then
Exit;
if Pos('http://', URL) = 0 then
URL := 'http://' + URL;
if Pos(URL[Length(URL)], '/') <> 0 then
Delete(URL, Length(URL), 1);
for i := 0 to ListBox1.Items.Count - 1 do
begin
Application.ProcessMessages;
ListBox1.Selected[i] := True;
Label1.Caption := 'Count: ' + IntToStr(i + 1) + '/' +
IntToStr(ListBox1.Items.Count);
if IS_URL_Valid(URL + '/' + ListBox1.Items[i], 15000) then
Memo1.Lines.Add(URL + '/' + ListBox1.Items[i] + ' ' + '200 OK');
Application.ProcessMessages;
end;
end;
المشاركات : 14
ghost-dz
المشاركات : 654
نسبة نجاحه الآن هي 70%
