這是我參考書上還有版上一些文章所寫的 請問如何加入一個程式 將圖片的尺寸顯示呢???     //---------------------------------------------------------------------------    #include  #pragma hdrstop #include "jpeg.hpp" #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "IdBaseComponent" #pragma link "IdComponent" #pragma link "IdTCPClient" #pragma link "IdTCPConnection" #pragma resource "*.dfm" TForm1 *Form1; Graphics::TBitmap *Bmp = new Graphics::TBitmap(); bool AUTO_Send=false; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { IdTCPClient1->Disconnect(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { IdTCPClient1->Host=Edit1->Text; IdTCPClient1->Port=StrToInt(Edit2->Text); try{ IdTCPClient1->Connect(); }catch(...){ ShowMessage("連線有問題"); return;} ShowMessage("連線成功"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Timer1->Enabled=false; double TakeTime= double( Now()); if(IdTCPClient1->Connected()) { StatusBar1->Panels->Items[0]->Text="Connect"; TFileStream *fs=new TFileStream("C:\\RoachTest.jpg", fmCreate); TMemoryStream *ms=new TMemoryStream(); try { IdTCPClient1->WriteLn("SendMeFile"); IdTCPClient1->ReadStream(fs, -1, false); StatusBar1->Panels->Items[0]->Text="Read Stream"; } __finally { delete fs; delete ms; } TakeTime= double( Now()) - TakeTime ; AnsiString strTime=FloatToStr(TakeTime*24*60*60*1000); if( strTime.Length() >= 6 ) strTime=strTime.SubString(1,5); StatusBar1->Panels->Items[0]->Text=strTime+"ms"; try{ Image1->Picture->LoadFromFile("C:\\RoachTest.jpg"); }catch(...){return;} if(AUTO_Send==true) Timer1->Enabled=true; } else ShowMessage("無法連線"); } //--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPClient1Status(TObject *ASender, const TIdStatus AStatus, const AnsiString AStatusText) { StatusBar1->Panels->Items[0]->Text=AStatusText; } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { Button2Click(0); } //--------------------------------------------------------------------------- 類似上圖紅線那樣

您好： 請參考以下方式： void __fastcall TForm1::Button2Click(TObject *Sender) { Graphics::TBitmap *Bmp = new Graphics::TBitmap(); Bmp->LoadFromFile("c:\\michelle-pic-01.bmp"); Label1->Caption=IntToStr(Bmp->Width);//寬 Label2->Caption=IntToStr(Bmp->Height);//高 Bmp->Free(); }