全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1293
推到 Plurk!
推到 Facebook!

Delphi 如何頡取檔案後256byte 資料?

答題得分者是:pedro
juliuschen00
一般會員


發表:4
回覆:6
積分:2
註冊:2007-08-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-03-11 13:40:18 IP:59.125.xxx.xxx 訂閱
請問各位前輩 :
我想擷取一個圖型檔案後 256 byte 的資料,
應該如何著手 ,,,
因為檔案後面有我須知的資訊....


謝謝!!
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-03-11 14:18:11 IP:60.248.xxx.xxx 未訂閱
您好

參考下面片段概念碼,未經測試,請自行調整
[code delphi]
var
fs:TFileStream;
buffer:array[0..256] of char;
i:Integer;
begin
fs:=TFileStream.Create('c:\sunset.jpg',fmOpenRead);
fs.Position:=fs.Size-256;
fs.Read(buffer,256);
fs.Free;
for i :=0 to high(buffer)-1 do
memo1.Lines.Add(buffer[i]);
[/code]
juliuschen00
一般會員


發表:4
回覆:6
積分:2
註冊:2007-08-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-03-11 15:17:23 IP:59.125.xxx.xxx 訂閱


===================引 用 pedro 文 章===================
您好

參考下面片段概念碼,未經測試,請自行調整
[code delphi]
var
fs:TFileStream;
buffer:array[0..256] of char;
i:Integer;
begin
fs:=TFileStream.Create('c:\sunset.jpg',fmOpenRead);
fs.Position:=fs.Size-256;
fs.Read(buffer,256);
fs.Free;
for i :=0 to high(buffer)-1 do
memo1.Lines.Add(buffer[i]);
[/code]




感謝前輩 :
我實作之後,Memo1 裡並沒有東西,
用 debug mode 去看 , buffer 裡存的就是一些
#149 , #165 之類的東西, 我應該如何取用這些東西呢?

我的檔案後256 byte 會有的檔名的資訊,
是別人用加上C 加上去的,我想用 Delphi 把這些資訊讀出來比對...


非常感謝!!
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-03-11 15:31:40 IP:60.248.xxx.xxx 未訂閱
最後一行改成
memo1.Lines.Add(Format('%s',[buffer[i]]));
系統時間:2024-05-05 12:18:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!