else if (AnsiPos('\81E\93\8a\8de\8eÒ\82Í\81A\8cf\8e¦\94Â\89^\89c\8eÒ\82É\91Î\82µ\82Ä\81A\92\98\8dì\8eÒ\90l\8ai\8c \82ð\88ê\90Ø\8ds\8eg\82µ\82È\82¢\82±\82Æ\82ð\8f³\91ø\82µ\82Ü\82·\81B<br>', ResponseText) > 0) or
(AnsiPos('\81i\92\98\8dì\8c \96@\91æ21\8fð\82È\82¢\82µ\91æ28\8fð\82É\8bK\92è\82³\82ê\82é\8c \97\98\82à\8aÜ\82Þ\81j\82»\82Ì\91¼\82Ì\8c \97\98\82É\82Â\82«\81A', ResponseText) > 0) then
Result := grtCookie
+ else if (AnsiPos('\8f\91\82«\82±\82Ý\81\95\83N\83b\83L\81[\8am\94F', ResponseText) > 0) or
+ (AnsiPos('(cookie\82ð\90Ý\92è\82·\82é\82Æ\82±\82Ì\89æ\96Ê\82Í\82Å\82È\82\82È\82è\82Ü\82·\81B)', ResponseText) > 0) then
+ Result := grtCookie
else
Result := grtError;
end;
while True do begin
idx1 := AnsiPos('<b>', s);
idx2 := AnsiPos('<a', s);
- if (idx1 = 0) and (idx2 = 0) then Break;
+// if (idx1 = 0) and (idx2 = 0) then Break;
+ if (idx2 = 0) then Break; // \82à\82¤URL\82Í\82È\82¢
if idx1 < idx2 then begin
//<br>