filestream := tfilestream.Create('E:\temp.dat',fmopenread); setLength(buffer,filestream.size); filestream.ReadBuffer(buffer[1],filestream.Size); filestream.Destroy; TFileStream去開啟一個檔案，但不懂的是為什麼ReadBuffer時，buffer不是從0開始.而是從1開始. 初學者.,請多包含 tks

去開啟一個檔案直接调用API的OPEN函数即可。

引言: filestream := tfilestream.Create('E:\temp.dat',fmopenread); setLength(buffer,filestream.size); filestream.ReadBuffer(buffer[1],filestream.Size); filestream.Destroy; TFileStream去開啟一個檔案，但不懂的是為什麼ReadBuffer時，buffer不是從0開始.而是從1開始. 初學者.,請多包含 tks

Samlee你好： 試了一下，應該沒有一定要重 >!? 我的 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString filename="C:\\test.test"; TFileStream* filestream=new TFileStream(filename,fmOpenRead); int size=filestream->Size; BYTE *buf=new BYTE[size]; filestream->ReadBuffer(buf,size); for (int i=0;iLines->Add(IntToHex(buf[i],2)); delete filestream; delete buf; } 還有誠如sl@cableplus.com.cn兄說的開檔沒有一定要用用樣開的，隨便怎樣開都行，自已最方便就為主! 另外你寫的是delphi嗎？我的是builder版的哦! All!

sorry,sorry,,, 我也是bulider啦.只是從別的地方找到相對應的code.一時沒注意就給他post了. 其實用這種方式開檔.我是在研究base64.我把code再post一次  

    char* Bu;
   TFileStream *fs=new TFileStream("c:\\temp\\00050.ico", (WORD)fmOpenRead);
   Bu=new char[fs->Size];
   memset(Bu,0,fs->Size);
   fs->Read((void*)(Bu),fs->Size);
   IdBase64Encoder1->CodeString(Bu);
   AnsiString ss=IdBase64Encoder1->CompletedInput();       Memo2->Lines->Add(ss);
   Fetch(ss,";");       IdBase64Decoder1->CodeString(ss);
   memset(Bu,0,fs->Size);
   ss=IdBase64Decoder1->CompletedInput();
   Fetch(ss,";");
   memcpy(Bu,ss.c_str(),ss.Length());
   TFileStream *s1=new TFileStream("c:\\temp\\00051.ico",(WORD)fmCreate);
   s1->WriteBuffer(Bu,fs->Size);
   delete s1;

我的問題有幾點. 1.為什麼在encode後，所得到的String第一二位.均是0;這代表的是什麼 2.我在Decode後.所存下的檔.大小均與source相同,但無法開啟. 感謝大家的指導 嘿嘿..沒事多研究一下.新的技巧.

引言: sorry,sorry,,, 我也是bulider啦.只是從別的地方找到相對應的code.一時沒注意就給他post了. 其實用這種方式開檔.我是在研究base64.我把code再post一次

    char* Bu;
   TFileStream *fs=new TFileStream("c:\\temp\\00050.ico", (WORD)fmOpenRead);
   Bu=new char[fs->Size];
   memset(Bu,0,fs->Size);
   fs->Read((void*)(Bu),fs->Size);
   IdBase64Encoder1->CodeString(Bu);
   AnsiString ss=IdBase64Encoder1->CompletedInput();       Memo2->Lines->Add(ss);
   Fetch(ss,";");       IdBase64Decoder1->CodeString(ss);
   memset(Bu,0,fs->Size);
   ss=IdBase64Decoder1->CompletedInput();
   Fetch(ss,";");
   memcpy(Bu,ss.c_str(),ss.Length());
   TFileStream *s1=new TFileStream("c:\\temp\\00051.ico",(WORD)fmCreate);
   s1->WriteBuffer(Bu,fs->Size);
   delete s1;

我的問題有幾點. 1.為什麼在encode後，所得到的String第一二位.均是0;這代表的是什麼 2.我在Decode後.所存下的檔.大小均與source相同,但無法開啟. 感謝大家的指導 嘿嘿..沒事多研究一下.新的技巧.

Samlee你好： 嗯，瞭解你的問題了，跟你一開始 >! 再來你寫的 >! < class="code"> 1. TFileStream物件只是為了開檔，似乎是繞了一圈沒錯! 2. 整個問題並不是在TFileStream的問題 2. 開檔應是儘使用 BYTE、unsigned char，用char宣告buffer比較危險! 3. 另外我查了一下，Builder的那兩個encode、decode的元件是吃AnsiString的data 哦，而你是餵整個file，還是binary的file! 4. 硬要餵一整個binary file去做encode、decode也可以，只是要concern很多地方! 我的做法： 1. 一樣先開檔，方式就隨便了! 2. 將開完檔後得到的buffer，轉成AnsiString!(這裏有問題，特別說明：) 由於開的是binary檔，所以得到的buffer裏面會有0x00的值， 0x00轉成AnsiString會死，所以要特別處理! 3. 得到的AnsiString才能再做encode、decode的步驟! 4. 做完encode、decode的AnsiString再存成新檔! Example： AnsiString filename="C:\\temp\\cygwin.ico"; AnsiString newfilename="C:\\temp\\new.ico"; int iFileHandle; int iFileLength; int iBytesRead; BYTE *pszBuffer; try { iFileHandle=FileOpen(filename,fmOpenRead); iFileLength=FileSeek(iFileHandle,0,2); FileSeek(iFileHandle,0,0); pszBuffer=new BYTE[iFileLength 1]; iBytesRead=FileRead(iFileHandle,pszBuffer,iFileLength); FileClose(iFileHandle); } catch (...) { ShowMessage("檔案開啟有誤!"); } for (int bCnt=0;bCnt***重要 if (pszBuffer[bCnt]==0x00) pszBuffer[bCnt]=0x99; } AnsiString SourceString; SourceString.sprintf(pszBuffer); IdBase64Encoder1->CodeString(SourceString); AnsiString EncodeString=IdBase64Encoder1->CompletedInput(); Fetch(EncodeString,";"); IdBase64Decoder1->CodeString(EncodeString); AnsiString DecodeString; DecodeString=IdBase64Decoder1->CompletedInput(); Fetch(DecodeString,";"); for (int bCnt=1;bCnt<=DecodeString.Length();bCnt ) { if ((BYTE)DecodeString[bCnt]==0x99) ***重要 //DecodeString[bCnt]=0x00; pszBuffer[bCnt-1]=0x00; //Modified //pszBuffer[bCnt-1]=(byte)DecodeString[bCnt]; } iFileHandle=FileCreate(newfilename); if (iFileHandle!=0) { FileWrite(iFileHandle,pszBuffer,iBytesRead); FileClose(iFileHandle); } delete [] pszBuffer; 程式中遇到buffer內有值0x00的話，是先把它轉成0x99，最後encode、decode完成後再轉回來，再存檔!也就是要先避過0x00這樣的數值! 那當然轉成0x99只是隨便取的，只要這個檔內原本沒有0x99就不會混淆了! 方式未必最好，精神是這樣就是了! All，參著參著! 發表人 -

謝謝版主的指導,還特地寫了一個sample 雖然有些地方還不是很懂. 例如為什麼開檔要用byte,若用char會比較危險. 藉這個問題.我又深深的感到自己的不足... 總而言之.一言蔽之. 我又學到不少. 哈哈.成長空間真大.

引言: 謝謝版主的指導,還特地寫了一個sample 雖然有些地方還不是很懂. 例如為什麼開檔要用byte,若用char會比較危險. 藉這個問題.我又深深的感到自己的不足... 總而言之.一言蔽之. 我又學到不少. 哈哈.成長空間真大. < face="Verdana, Arial, Helvetica"> Samlee你好： 因為我也沒用過那兩個 >! 另外開檔儘量用 >!

請問版主呀. 雖然透過Sample後,得到的newfile和原始檔案size一樣. 但無法開啟新的file耶. 我測試的檔案是word檔. ps.用base64應該是什麼檔案都可以序列化(可視) 還有什麼地方是沒注意到的嗎.

引言: 請問版主呀. 雖然透過Sample後,得到的newfile和原始檔案size一樣. 但無法開啟新的file耶. 我測試的檔案是word檔. ps.用base64應該是什麼檔案都可以序列化(可視) 還有什麼地方是沒注意到的嗎.

Samlee你好： 檔案大小一致是正常的，不論結果對不對，所以判斷檔案大小是 >! 最後 >!