請各位前輩幫解一下: 我用的是BCB5,再開image圖檔時,檔案格式好像不支援raw的格式,若要將圖檔(.raw)與作解析度轉換後的圖檔(.raw)均顯示於同一個Form中,該如何做??

ch_sen_long您好:   方便將您的程式碼PO上來嗎? 好讓有經驗的人可以幫助您    順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

我是要寫一個將圖檔(解析度:512*512,灰階:8bit,副檔名:raw),利用bcb寫一個解析度以及灰階轉換的程式(例如:將原圖轉成解析度256*256,另一張轉成灰階為4bit)並且將結果同時秀再同一個form中

ch_sen_long您好:  請參考下面連結小弟的拙作  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38156 顯示的部分稍作修改即可 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

請各位前輩在幫我一下,我的程式片段如下: void __fastcall TForm1::Button1Click(TObject *Sender) { unsigned char *pic,*pic_head; FILE *fp; bool ImageSize=true; String Filename; int r; if(ImageSize)  {  if(OpenDialog1->Execute())   {   pic=new unsigned char [SizeOfImage];   pic_head=new unsigned char[1];   pic_head=pic;   Filename=ExtractFilePath(OpenDialog1->FileName);   Filename=Filename+ExtractFileName(OpenDialog1->FileName);   fp=fopen(Filename.c_str(),"rb");   fread(pic,512*512,1,fp);   fclose(fp);   for(int i=0;i<512;i ) for(int j=0;j<512;j ) { r=*(pic j); PaintBox1->Canvas->Pixels[j][i]=RGB(r,r,r); } 為啥只有一條一條的線???

ch_sen_long您好:  請參考下面聯結做適當的修改  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38266 好讓大家方便閱讀,謝謝您的配合 您RAW data格式為何?? 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 -

我之前有作過相關程式..不過方法是滿笨的...  

//-------------------------------------------------------------------
#include 
#pragma hdrstop    #include "Unit1.h"
#include
//-------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//-------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//-------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        fstream in1_raw("image.raw",ios::in|ios::binary);
        Byte* ptr;
        Graphics::TBitmap *TheBitmap;
        TheBitmap=new Graphics::TBitmap();
        TheBitmap=img1->Picture->Bitmap;
        int i,j;
        for(i=0;i<=511;i  )
        {
                ptr=(Byte*)TheBitmap->ScanLine[i];
                for(j=0;j<=511;j  )
                {
                        ptr[j*3]=in1_raw.get();
                        ptr[j*3 1]=ptr[j*3];
                        ptr[j*3 2]=ptr[j*3];
                }
        }
        Repaint();
        img1->Picture->SaveToFile("RAW2BMP.bmp");
}
//---------------------------------------------------------------------------    

發表人 - m58610 於 2003/10/04 00:29:07

m58610您好:   您的方式很好很棒壓,怎麼會笨呢< > 謝謝您的分享< > 順心

引言: m58610您好: 您的方式很好很棒壓,怎麼會笨呢< > 謝謝您的分享< > 順心 < face="Verdana, Arial, Helvetica"> ㄏㄏ... 謝謝你的誇獎摟... 我是因為專題關係... 所以才開始要用一堆影像處理 幾乎都是在這討論區裡學的... 所以我慢慢也會上來看有沒有我能回答的問題...