24/01/07 19:15:36.13 qyCb4tvN0.net
>>219
別の人
NTERNET_FLAG_NO_COOKIES付けるとHttpQueryInfoでクッキー無しのヘッダのみになって
そこでエラーになってるのは確認
ビルド環境作るの面倒なのでBelib.pasだけ使ってこれで確認
まあ、他の部分のソース見てないので不都合あるかは知らない
procedure TForm1.Button1Click(Sender: TObject);
begin
FBelib.ClientUA := 'gikoNavi/beta74';
FBelib.UserName := trim(Edit1.Text);
FBelib.Password := trim(Edit2.Text);
if FBelib.Connect then
begin
Memo1.Lines.Append(FBelib.DMDM);
Memo1.Lines.Append(FBelib.MDMD);
end
else
Memo1.Lines.Append(FBelib.ErrorMsg);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FBelib := TBelib.Create;
end;