Preguntar a StackOverflow con su API

navbuoy · #1 05-02-2026

STACK OVERFLOW APP (proyecto con codigo fuente)

Hice esto en un ratito esta guay no?

https://mega.nz/file/nz4ARTjZ#9DR87B...hgreL9PufcFL5c

navbuoy · #2 05-02-2026

codigo de Unit1.cpp

Código:

//---------------------------------------------------------------------------

#include <vcl.h>
#include <openssl/hmac.h>
#include <openssl/evp.h>
#include <System.JSON.hpp>
#include <ShellAPI.hpp>

#pragma hdrstop

#include "Unit1.h"
#include <vector>

#include <IdHTTP.hpp>
#include <System.NetEncoding.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvCustomControl"
#pragma link "AdvWebBrowser"
#pragma resource "*.dfm"
TForm1 *Form1;

struct PreguntaSO
{
    int id;
    UnicodeString titulo;
};

std::vector<PreguntaSO> preguntas;

void TForm1::AgregarPreguntaALV(int questionId, UnicodeString title, int answerCount)
{
    TListItem *item = ListView1->Items->Add();
    item->Caption = title;
    item->SubItems->Add(IntToStr(answerCount));
    item->Data = (void*)(intptr_t)questionId; // Guardamos el QuestionID
}

UnicodeString URLEncode(const UnicodeString &s)
{
	UnicodeString outS;
	for (int i = 1; i <= s.Length(); i++)
	{
		wchar_t c = s[i];
		if ((c >= '0' && c <= '9') ||
			(c >= 'A' && c <= 'Z') ||
			(c >= 'a' && c <= 'z') ||
			c == '-' || c == '_' || c == '.' || c == '~')
		{
			outS += c;
		}
		else if (c == ' ')
		{
			outS += "%20";
		}
		else
		{
			outS += "%" + IntToHex(c, 2);
		}
	}
	return outS;
}



void TForm1::CargarRespuestas(int questionId)
{
    if (questionId <= 0) return;

    UnicodeString url =
        "https://api.stackexchange.com/2.3/questions/" +
        IntToStr(questionId) +
        "/answers"
        "?order=desc"
        "&sort=votes"
        "&site=stackoverflow"
        "&filter=withbody";

    try
    {
        UnicodeString json = IdHTTP1->Get(url);

        TJSONValue *val = TJSONObject::ParseJSONValue(json);
        TJSONObject *root = dynamic_cast<TJSONObject*>(val);
        if (!root) return;

        TJSONArray *items =
            dynamic_cast<TJSONArray*>(root->GetValue("items"));
        if (!items) return;

        UnicodeString html = "<html><head>"
                             "<meta charset='utf-8'>"
                             "<style>"
                             "body { font-family: Segoe UI; font-size: 14px; }"
                             "pre { background:#f4f4f4; padding:8px; border:1px solid #ccc; overflow:auto; }"
                             "code { color:#c7254e; font-family: Consolas, monospace; }"
                             "a { color: blue; text-decoration: none; }"
                             "</style>"
                             "</head><body>";

        for (int i = 0; i < items->Count; i++)
        {
            TJSONObject *a = dynamic_cast<TJSONObject*>(items->Items[i]);
            if (!a) continue;

            UnicodeString body = a->GetValue("body")->Value();

            html += "<h3>Respuesta " + IntToStr(i + 1) + "</h3>";
            html += body;
            html += "<hr>";
        }

        html += "</body></html>";

        // Guardamos en archivo temporal
        UnicodeString fileName = "respuestas.html";
        TStringList *sl = new TStringList();
        try
        {
            sl->Text = html;
            sl->SaveToFile(ExtractFilePath(Application->ExeName) + fileName);
        }
        __finally
        {
            delete sl;
        }

        // Cargamos el HTML en TWebBrowser
		WebBrowser1->Navigate("file:///" + ExtractFilePath(Application->ExeName) + fileName);

        delete root;
    }
    catch (Exception &e)
    {
        ShowMessage("ERROR: " + e.Message);
    }
}



//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
ListView1->Columns->Items[0]->Width = 700; // Título
ListView1->Columns->Items[1]->Width = 100; // Respuestas
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonBuscarClick(TObject *Sender)
{
UnicodeString texto = Edit1->Text.Trim();

	if (texto.IsEmpty())
	{
		ShowMessage("Escribe algo para buscar");
		return;
	}

	ListView1->Items->Clear(); // Limpiamos resultados previos

	UnicodeString query = TNetEncoding::URL->Encode(texto);

	UnicodeString url =
		"https://api.stackexchange.com/2.3/search"
		"?order=desc"
		"&sort=relevance"
		"&intitle=" + query +
		"&site=stackoverflow"
		"&pagesize=10";

	try
	{
		UnicodeString json = IdHTTP1->Get(url);

		TJSONValue *val = TJSONObject::ParseJSONValue(json);
		TJSONObject *root = dynamic_cast<TJSONObject*>(val);
		if (!root) return;

		TJSONArray *items = dynamic_cast<TJSONArray*>(root->GetValue("items"));
		if (!items) return;

		// ✅ Aquí llenamos el ListView usando nuestra función
for (int i = 0; i < items->Count; i++)
{
    TJSONObject *q = dynamic_cast<TJSONObject*>(items->Items[i]);
    if (!q) continue;

int questionId = StrToIntDef(
    q->GetValue("question_id")->Value(), 0
);

int answerCount = StrToIntDef(
    q->GetValue("answer_count")->Value(), 0
);

    UnicodeString title = q->GetValue("title")->Value();

	AgregarPreguntaALV(questionId, title, answerCount);
}

		delete root;
	}
	catch (Exception &e)
	{
		ShowMessage("Error al buscar preguntas: " + e.Message);
	}
}


//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
	 if (Key == VK_RETURN)
		ButtonBuscarClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method = sslvTLSv1_2;
	IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode = sslmClient;

	IdHTTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
	IdHTTP1->Request->UserAgent = "C++Builder StackOverflow Client";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ListView1SelectItem(TObject *Sender, TListItem *Item, bool Selected)

{
    if (!Selected || !Item) return;

    int questionId = (int)(intptr_t)Item->Data; // Recuperamos el QuestionID
    CargarRespuestas(questionId); // ✅ Llamada directa


}
//---------------------------------------------------------------------------

codigo fuente Unit1.h

Código:

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdHTTP.hpp>
#include <IdIOHandler.hpp>
#include <IdIOHandlerSocket.hpp>
#include <IdIOHandlerStack.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <IdSSL.hpp>
#include <IdSSLOpenSSL.hpp>
#include <Vcl.ComCtrls.hpp>
#include <SHDocVw.hpp>
#include <Vcl.OleCtrls.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Graphics.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TEdit *Edit1;
	TButton *ButtonBuscar;
	TIdHTTP *IdHTTP1;
	TIdSSLIOHandlerSocketOpenSSL *IdSSLIOHandlerSocketOpenSSL1;
	TLabel *Label1;
	TLabel *Label2;
	TLabel *Label3;
	TListView *ListView1;
	TWebBrowser *WebBrowser1;
	TImage *Image1;
	void __fastcall ButtonBuscarClick(TObject *Sender);
	void __fastcall Edit1KeyPress(TObject *Sender, System::WideChar &Key);
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall ListView1SelectItem(TObject *Sender, TListItem *Item, bool Selected);

private:	// User declarations
public:		// User declarations
	__fastcall TForm1(TComponent* Owner);
	void CargarRespuestas(int questionId);
    void AgregarPreguntaALV(int questionId, UnicodeString title, int answerCount);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Casimiro Noteví · #3 06-02-2026

Neftali [Germán.Estévez] · #4 06-02-2026

Gracias por compartirlo.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Encuesta anual de StackOverflow	Neftali [Germán.Estévez]	Varios	4	15-05-2023 19:16:10
Encuesta anual de StackOverflow	Neftali [Germán.Estévez]	Noticias	10	05-08-2021 15:01:20
Apoyemos stackoverflow en español!	mamcx	Noticias	9	27-03-2012 00:07:58
Error StackOverFlow al cerrar un formulario	Lionel	Varios	1	01-04-2004 11:19:57
StackOverFlow pero no lo entiendo.	Letty	Conexión con bases de datos	2	27-11-2003 19:17:07