德尔福idhttp后相关的问题

Question

即时通讯新德尔福。也是编程世界的新手。

我做了一些简单的使用idhttp模块的后期软件。

但是当执行它时，它不能正常工作。

这个简单的程序是检查我的帐户状态。

如果帐户登录成功使其返回一些源代码，其中包括“top.location =”

在源

，如果登录失败它返回不包括“top.location =”

内部account.txt就是按照第一和第三个帐户是alived帐户

，但只有第一个帐户可以查询，第一个帐户后，其他帐户不能检查

我不知道有什么不妥的地方

ph896011 pk1089

fsadfasdf dddddss

ph896011 pk1089

以下是德尔福

如果任何一个可以帮助我很多apprecated的源泉！

unit Unit1;

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, 
    IdTCPClient, IdHTTP, IdCookieManager, ExtCtrls; 

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    IdHTTP1: TIdHTTP; 
    Memo1: TMemo; 
    IdCookieManager1: TIdCookieManager; 
    lstAcct: TListBox; 
    result: TLabel; 
    Edit1: TEdit; 
    Timer1: TTimer; 
    procedure Button1Click(Sender: TObject); 
    //procedure FormCreate(Sender: TObject); 
    //procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    private 
    { Private declarations } 
    public 
    AccList: TStringList; 
    IdCookie: TIdCookieManager; 
    CookieList: TList; 
    StartCnt: Integer; 
    InputCnt: Integer; 
    WordList: TStringList; 
    WordNoList: TStringList; 
    WordCntList: TStringList; 
    StartTime: TDateTime; 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 

    i: Integer; 
    //temp: String; 
    lsttemp: TStringList; 
    sl : tstringlist; 
    //userId,userPass: string; 
begin 
    InputCnt:= 0; 
    WordList := TStringList.Create; 
    CookieList := TList.create; 
    IdCookie := TIdCookieManager.Create(self); 


    if FileExists(ExtractFilePath(Application.ExeName) + 'account.txt') then 
    WordList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'account.txt'); 

    WordNoList:= TStringList.Create; 
    WordCntList := TStringList.Create; 
    lsttemp := TStringList.create; 
    sl :=Tstringlist.Create; 
try 
    try 
    for i := 0 to WordList.Count -1 do 
    begin 
     ExtractStrings([' '], [' '], pchar(WordList[i]), lsttemp); 
     WordNoList.add(lsttemp[0]); 
     //ShowMessage(lsttemp[0]); 
     WordCntList.add(lsttemp[1]); 
     //ShowMessage(lsttemp[1]); 

     sl.Add('ID='+ lsttemp[0]); 
     sl.add('PWD=' + lsttemp[1]); 
     sl.add('SECCHK=0'); 
     IdHTTP1.HandleRedirects := True; 
     IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; 
     memo1.Text:=idhttp1.Post('http://user.buddybuddy.co.kr/Login/Login.asp',sl); 

     if pos('top.location =',Memo1.Text)> 0 then 

     begin 
     application.ProcessMessages; 
     ShowMessage('Alive Acc!'); 
     //result.Caption := 'alive acc' ; 
     sleep(1000); 
     Edit1.Text := 'alive acc'; 
     lsttemp.Clear; 
     Memo1.Text := ''; 
     //memo1.Text := IdHTTP1.Get('https://user.buddybuddy.co.kr/Login/Logout.asp'); 
     Sleep(1000); 
     end; 


     if pos('top.location =', memo1.Text) <> 1 then 

     begin 
     application.ProcessMessages; 
     ShowMessage('bad'); 
     Edit1.Text := 'bad'; 
     //edit1.Text := 'bad'; 
     lsttemp.Clear; 
     memo1.Text := ''; 
     sleep(1000) ; 
     end; 
     Edit1.Text := ''; 
    end; 

    finally 
    lsttemp.free; 
    end; 
    StartCnt := lstAcct.items.Count; 
    StartTime := Now; 

finally 
    sl.Free; 
end; 
end; 



end. 

Answer 1

权利之前：

sl.Add('ID='+ lsttemp[0]); 

务必：

sl.Clear; 

在第一次运行的 “SL” 拥有两个POST参数，但除非你清楚它的第二轮，你只是不断添加参数，混淆你正在尝试连接的HTTP服务器！

这可能不是你唯一的问题，但这肯定是问题之一。