+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مالمشكلة في هذا الكود ؟ (/showthread.php?tid=5290)
مالمشكلة في هذا الكود ؟ - sadwolf - 03-06-2013
السلام عليكم
مالمشكلة في هذا الكود ؟
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.
مالمشكلة في هذا الكود ؟ - onexite - 03-06-2013
الكود صحيح لاكن ماهدف البرنامج ؟
البحث في قائمة مواقع اذا كانت تحتوي على كلمة student ؟
مالمشكلة في هذا الكود ؟ - SMP3 - 03-06-2013
و عليكم السلام
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;
مالمشكلة في هذا الكود ؟ - sadwolf - 04-06-2013
والمشكله عند تنفيذ البرنامج
تخرج نافذه
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
مالمشكلة في هذا الكود ؟ - Agmcz - 04-06-2013
السلام عليكم
بعض التعديلات لكي لا تقع في مشكل
أنا لم أجرب شيء
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;