2ちゃんねる用ブラウザ「ギコナビ」Part96

>>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;