delphi4arab منتديات دلفي للعرب

السلام عليكم
مالمشكلة في هذا الكود ؟

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i : integer;
begin
    for i := 0 to memo1.Lines.Count do
    begin
        s := IdHTTP1.get(memo1.lines[i]);
          if pos('student', s) > 0 then
              memo2.Lines[i] := memo1.Lines[i]
            else
               Showmessage('down');
         end;

end;

end. 

مالطريقة المثلى لاستخدامه بدون اخطأ ؟

الكود صحيح لاكن ماهدف البرنامج ؟
البحث في قائمة مواقع اذا كانت تحتوي على كلمة student ؟

و عليكم السلام

PHP كود :
var
s : string;
i : integer;
begin
for i := 0 to memo1.Lines.Count-1 do
 begin
  s := IdHTTP1.get(memo1.lines[i]);
  if pos('student', s) > 0 then
  memo2.Lines.Add(memo1.Lines[i])
  else Showmessage('down');
 end;
end; 

والمشكله عند تنفيذ البرنامج

تخرج نافذه

raise exception class EdHTTPProtocolException with message 'HTTP/1.1 301 Moved Permanenty '.
Process stopped . Used Step or Run To continue

بعدين يفتح سورس المكون (IdHTTP)
ويقف على هذا السطر
raise EIdHTTPProtocolException.CreateError(LResponseCode, FHTTP.ResponseText

السلام عليكم
بعض التعديلات لكي لا تقع في مشكل
أنا لم أجرب شيء

PHP كود :
var
  URL, S: string;
  i: integer;
  HTTP: TIdHTTP;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    for i := 0 to memo1.Lines.Count - 1 do
    begin
      URL := memo1.lines[i];
      if Pos('http://', URL) = 0 then
        URL := 'http://' + URL;
      try
        S := HTTP.Get(URL);
      except
        // exception
      end;
      if pos('student', S) > 0 then
        memo2.Lines.Add(URL)
      else
        Showmessage('down');
    end;
  finally
    HTTP.Free;
  end;
end; 

sadwolf

onexite

SMP3

sadwolf

Agmcz