高难度：WEB页不接收POST数据，没有返回值！ (只有这么多分了) ( 积分: 119 )

网易的相册好像用POST数据不接收（以下页面要登录COOKIE）
如新建相册目录：http://photo.163.com/newalbum.php?_dir=%2F
在源文件中提取其中的表单，地址修改为绝对地址，登录取得COOKIE后（不登录提交是非法的），提交没有返回（空白页）。
编程用POST数据也接收不到数据，操作也是失败的。
但我看到有个程序可以操作成功，但不知道他如何做的。（叫做“网易相册上传(下载)专家”）。
我的程序代码如下，谁帮我搞定全部身家都给他！

{NewPhotoThread}
procedure TNewPhotoThread.Execute;
var
str1, str2: TStringStream;
Tempstr: string;
getlist: Boolean;
begin
FreeOnTerminate := true;
getlist := False;
UpForm.T_stat1.Panels.Items[2].Text := '正在创建相册目录...';
//状态栏显示信息
Tempstr := '就绪';
//控件初始化
F_IdHTTP3 := TIdHTTP.Create(nil);
str1 := TStringStream.Create('');
str2 := TStringStream.Create('');
try
F_IdHTTP3.CookieManager := Form1.T_IdHTTP1.CookieManager;
F_IdHTTP3.AllowCookies := true;
F_IdHTTP3.Request.ContentType := 'application/x-www-form-urlencoded';
str1.WriteString('ename=' + NewPhoto.T_Edit1.Text + '&');
str1.WriteString('cname=' + NewPhoto.T_Edit2.Text + '&');
str1.WriteString('bigclass=0&');
str1.WriteString('newcate=1&');
str1.WriteString('lvl=' + IntToStr(NewPhotoclass) + '&');
str1.WriteString('password=' + NewPhoto.T_Edit3.Text + '&');
str1.WriteString('submit= 创建目录 &');
str1.WriteString('_dir=%2F');
//Web下载初始化
try
F_IdHTTP3.Post('http://photo.163.com/newalbum_pro.php', str1, str2)
except
F_IdHTTP3.Get(F_IdHTTP3.Response.Location, str2);
end;
UpForm.T_memo1.Text := str2.DataString; //***********
if pos('创建目录成功', str2.DataString) > 0 then
begin
Tempstr := '创建目录成功！';
getlist := True;
end
else
Tempstr := '相册目录创建不成功！';
finally
F_IdHTTP3.Free;
str1.Free;
str2.Free;
UpForm.T_stat1.Panels.Items[2].Text := Tempstr;
end;
end;

网易的相册好像用POST数据不接收（以下页面要登录COOKIE）
如新建相册目录：http://photo.163.com/newalbum.php?_dir=%2F
在源文件中提取其中的表单，地址修改为绝对地址，登录取得COOKIE后（不登录提交是非法的），提交没有返回（空白页）。
编程用POST数据也接收不到数据，操作也是失败的。
但我看到有个程序可以操作成功，但不知道他如何做的。（叫做“网易相册上传(下载)专家”）。
我的程序代码如下，谁帮我搞定全部身家都给他！

{NewPhotoThread}
procedure TNewPhotoThread.Execute;
var
str1, str2: TStringStream;
Tempstr: string;
getlist: Boolean;
begin
FreeOnTerminate := true;
getlist := False;
UpForm.T_stat1.Panels.Items[2].Text := '正在创建相册目录...';
//状态栏显示信息
Tempstr := '就绪';
//控件初始化
F_IdHTTP3 := TIdHTTP.Create(nil);
str1 := TStringStream.Create('');
str2 := TStringStream.Create('');
try
F_IdHTTP3.CookieManager := Form1.T_IdHTTP1.CookieManager;
F_IdHTTP3.AllowCookies := true;
F_IdHTTP3.Request.ContentType := 'application/x-www-form-urlencoded';
str1.WriteString('ename=' + NewPhoto.T_Edit1.Text + '&');
str1.WriteString('cname=' + NewPhoto.T_Edit2.Text + '&');
str1.WriteString('bigclass=0&');
str1.WriteString('newcate=1&');
str1.WriteString('lvl=' + IntToStr(NewPhotoclass) + '&');
str1.WriteString('password=' + NewPhoto.T_Edit3.Text + '&');
str1.WriteString('submit= 创建目录 &');
str1.WriteString('_dir=%2F');
//Web下载初始化
try
F_IdHTTP3.Post('http://photo.163.com/newalbum_pro.php', str1, str2)
except
F_IdHTTP3.Get(F_IdHTTP3.Response.Location, str2);
end;
UpForm.T_memo1.Text := str2.DataString; //***********
if pos('创建目录成功', str2.DataString) > 0 then
begin
Tempstr := '创建目录成功！';
getlist := True;
end
else
Tempstr := '相册目录创建不成功！';
finally
F_IdHTTP3.Free;
str1.Free;
str2.Free;
UpForm.T_stat1.Panels.Items[2].Text := Tempstr;
end;
end;

寻找好心的高手！

没人要分？

再顶

有没有大人解答

高手都那裡去了？

我也想知道，帮你顶