shning
一般會員
發表:7 回覆:0 積分:1 註冊:2004-04-06
發送簡訊給我
|
這是我參考書上還有版上一些文章所寫的
請問如何加入一個程式
將圖片的尺寸顯示呢??? //--------------------------------------------------------------------------- #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);
}
//---------------------------------------------------------------------------
類似上圖紅線那樣
|