BCB中TImage如何加载网络上的图片

[cnbuffer]

想用TImage显示网络上的图片

AnsiString picshow = "http:\/\/192.168.1.120\/Images\/01.jpg";
    Image1->Picture->LoadFromFile("picshow");

运行提示“Unknown picture file extesion (.)”,怎么回事？

[netying]

没有用过, 可以这样吗? 帮你顶.

[ooolinux]

我也是刚学到：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString url="http://192.168.1.120/Images/01.jpg";
    AnsiString filename="test.jpg";
    TFileStream *fs=new TFileStream(filename,fmCreate);

    try
    {
        IdHTTP1->Get(url,fs);
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }

    int fsSize=fs->Size;
    delete fs;
    
    if(fsSize>0)
        Image1->Picture->LoadFromFile(filename);
    else
        ShowMessage("文件流未取得数据！");
}

[cnbuffer]

引用 2 楼 u010165006 的回复:

我也是刚学到：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString url="http://192.168.1.120/Images/01.jpg";
    AnsiString filename="test.jpg";
    TFileStream *fs=new TFileStream(filename,fmCreate);

    try
    {
        IdHTTP1->Get(url,fs);
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }

    int fsSize=fs->Size;
    delete fs;
    
    if(fsSize>0)
        Image1->Picture->LoadFromFile(filename);
    else
        ShowMessage("文件流未取得数据！");
}

IdHTTP1 是什么东西？

[cnbuffer]

明白了，谢谢！

[ooolinux]

引用 3 楼 cnbuffer 的回复:

[quote=引用 2 楼 u010165006 的回复:] 我也是刚学到：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString url="http://192.168.1.120/Images/01.jpg";
    AnsiString filename="test.jpg";
    TFileStream *fs=new TFileStream(filename,fmCreate);

    try
    {
        IdHTTP1->Get(url,fs);
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }

    int fsSize=fs->Size;
    delete fs;
    
    if(fsSize>0)
        Image1->Picture->LoadFromFile(filename);
    else
        ShowMessage("文件流未取得数据！");
}

IdHTTP1 是什么东西？[/quote] 要放一个IdHTTP网络控件。