上次各位大大指教了一下有關加解密的AnsiString問題,但我看了板上的Tmemorystream的相關文章後,是看得懂一點,有點知道意思,但是我現在的問題是,我本來使用TStringList->SaveToFile存檔後,要怎麼讀出原來的檔讓其檔案的資料不失真,因為不太懂得其文字加解密後的格式,那要怎麼讀取??

1. 加密後的AnsiString, 可能不會是 AnsiString , 所以你用TStringList->SaveToFile存檔,資料可能會漏掉. 用Tmemorystream 的 SaveToFile 寫入和 LoadFromFile 讀出應該就可以了. 2.至於 加解密後的格式,你是否有現成的加密和解密function呢? 要不然加解密的方式有千萬種,自己想一種就可以了.

加密後的資料還沒存入txt檔時沒問題,也就是我把加密後的資料貼在Memo或Edit然後用其資料解密都不成問題,我有現成的VCL元件可用,但是他的function是丟進AnsiString丟出AnsiString(加解密都是),照理來說,使用TStringList應該存檔後讀取沒問題,但是事實上卻並非如此,喔..有一件事必須要說的是,加密後的文字經過Base64編碼過,是不是因為如此,所以用TStringList存檔會出問題??那如果是這樣的話,那要怎麼處理這個問題??TMemoryStream我有看過站上的文章,但發現,似乎都得要知道buffer的長度才可以讀取,可是我並不知道Buffer的長度(加密後長度不一定),那要怎麼使用TMemoryStream??

1.加解密你要先測看看是否正常,先不要存到檔案中. 2.AnsiString 如何存入 TMemoryStream 如下面程式.    

     //存入檔案
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString ss = "aaaaaa";
  TMemoryStream        *m = new TMemoryStream();      m->SetSize(ss.Length());
  memcpy(m->Memory,ss.c_str(),ss.Length());
  m->SaveToFile("C:\\T.TXT");
  delete m;
}    // 從檔案讀出
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  AnsiString ss;
  char buf[512];
  TMemoryStream        *m = new TMemoryStream();
  m->LoadFromFile("C:\\T.TXT");
  memcpy(buf,m->Memory,m->Size);
  buf[m->Size] = 0x00;      ss = buf;
  delete m;
}

謝謝你,我的問題解決了,原因是出在使用TStringList存檔時會改變原先在Memo->Text的AnsiString格式,所以我現在利用這位高手的方式解決了,謝謝指教 對了,附帶一點要問的是,為何要在讀取檔案時要加入下面這段code buf[m->Size] = 0x00; 這在compiler時會出現Warning但本身執行上沒問題??可以告訴在下一下嗎?? 謝謝

引言: 為何要在讀取檔案時要加入下面這段code buf[m->Size] = 0x00;

因為宣告時 buf 時沒把 buf 清空, 一定要加 buf[m->Size] = 0x00; 以免當這個位址假如不是 0x00 時, 你的字串會多一些符號出來.

可是不是要copy前先清空嗎??怎麼會在整個copy完了在最後加入0x00?? 還是我的觀念是錯誤的,雖然有點離題,但我還是希望能弄懂,謝謝這位高手的指點

引言: 可是不是要copy前先清空嗎??怎麼會在整個copy完了在最後加入0x00?? 還是我的觀念是錯誤的,雖然有點離題,但我還是希望能弄懂,謝謝這位高手的指點

1.copy前先清空嗎? 要先清空也可以. 2.假如 char buf[512]="BBBBB"; m->Memory = "AAA"總共3個字元. 3.memcpy(buf,m->Memory,m->Size); 則 buf 會= "AAABB"; 4.buf[m->Size] = 0x00; 第一個B會變成 0x00,字串到此結束, buf 就= "AAA";