A. delphi 中如何將圖片數據保存到dat文件里的，然後讀取出來，並在Image控制項中顯示。
先定義好圖片的一個類型
TImageType = record
ImageName : string;
width : integer;
height : integer;
ImageData : array[0..49,0..49] of byte;
end;
存圖片：
procere TForm1.SaveImage(path: string);
var
bit : TBitmap;
i,j : integer;
myImage : array[0..999] of TImageType;
FN : string;
dat : TFileStream;
begin
bit := TBitmap.Create;
bit.LoadFromFile(path);
myImage[0].ImageName := 'test';
myImage[0].width := bit.Width;
myImage[0].height := bit.Height;
for i := 0 to bit.Width - 1 do
begin
for j:= 0 to bit.Height - 1 do
begin
myImage[0].ImageData[i,j] := bit.Canvas.Pixels[i,j];
end;
end;
FN := 'C:/test.dat';
dat := TFileStream.Create(FN,fmOpenWrite);
dat.Write(myImage,sizeof(myImage));
dat.Free;
end;
讀圖片
procere TForm1.LoadImagefromDat(path: string;image :Timage);
var
dat : TFileStream;
myImage : array [0..999] of TImageType;
i,j : integer;
begin
dat := TFileStream.Create(path,fmOpenRead);
dat.Read(myImage,sizeof(myImage));
dat.Free;
for i := 0 to myimage[0].width - 1 do
begin
for j:= 0 to myImage[0].height - 1 do
begin
image.Canvas.Pixels[i,j] := myImage[0].imagedata[i,j];
end;
end;
end;
未經測試，大致流程應該差不多了
B. delphi 如何運用LoadFromFile 讀取DAT文件指定的值
什麼叫「讀取到L1,L2,M3,MN」，即L1，L2等分別是什麼？
在你的文件中，是否期望L1就是L1和L2之間的內容，L2就是L2和M3之間的內容，......，MN是空串？
C. 用delphi讀取.dat文件數據後，在Tchart中同時畫四條曲線的方法
你是在做股票軟體吧，去看看Tchart的demo
D. delphi怎樣得到實時股票行情數據
實時股票行情數據，如果是商業性的需要服務費用，通常可以通過網路上各大股票網站站點來獲取發布的行情數據，比如以下是從 sina 網的行情數據伺服器上獲取 滬市601006 的行情：
http://hq.sinajs.cn/list=sh601006
訪問上面的url會返回一串文本，內容格式如：
varhq_str_sh600151="航天機電,11.020,10.980,10.950,
11.040,10.940,10.950,10.960,2634001,28909081.000,
9300,10.950,34300,10.940,55700,10.930,64000,10.920,
75900,10.910,22500,10.960,22192,10.970,20600,
10.980,50900,10.990,100300,11.000,2016-11-08,10:55:19,00";
然後對上面的數據進行文字解析就可以了。
E. 現在有個軟體是delphi寫的,有個TLabel框是顯示的注冊信息，是從一個dat文件中讀取的，現在我想
改成TEdit運行不了
估計是你label對應dat文件要改成TEdit對應dat文件；
檢查一下於label相關的地方。
F. 在delphi裡面怎麼操作*.dat的文件！
無類型文件一般用於存放二進制文件。
定義:f:File;
幾個相關的函數：
AssignFile,BlockRead,BlockWrite,Seek,ReWrite,ReSet,CloseFile
很多書里都有。
給你個例子：讀數據varf:File;s:String;b:array[1..100] of byte;
RecsRead:integer;begins:='C:\1.dat';
AssignFile(f,s);Reset(f);BlockRead(f,b,1,RecsRead);
//讀100個位元組到b[]里。
G. 在delphi7中如何連續讀取多個dat文件
使用TstringList裝載,補齊即可:)
var tmpStrs,FileStrs:TStrings;
begin
tmpStrs:=TStringList.Create;
FileStrs:=TStringList.Create;
tmpStrs.LoadFromFile('File1.dat');
FileStrs.AddStrings(tmpStrs);
tmpStrs.LoadFromFile('File2.dat');
FileStrs.AddStrings(tmpStrs);
tmpStrs.LoadFromFile('File3.dat');
FileStrs.AddStrings(tmpStrs);
FileStrs.SaveToFile('page.htm');
tmpStrs.Free;
FileStrs.Free;
end;
H. 想用delphi編程，實現將他處獲得的dat文件裡面的數據導入到ACCESS資料庫或ORACLE資料庫，請高手指教！
先從文本內容內，取出一條記錄的文本，再據欄位間分隔，取到每個欄位的值；由此您可以組裝成
sql語句，按條入庫；
如：
表名：table1，欄位，field1,file2;
dat文件內容：
1001，張三；1002，李四；
以「;」代表記錄分隔；「，」代表欄位的分隔；
將產生兩條sql;
insert table1 values(1001，'張三');
insert table1 values(1002，'李四');
I. 如何用DELPHI打開一個.dat文件,並將裡面的數據顯示在TCHART上成一條曲線
實驗 txt文件讀取
實驗 tchart打點顯示
J. Delphi與.dat文件
那裡有無Delphi源代碼啊?如果有, 看代碼,就知道了.
如果沒有, 實現辦法是:要知道*.dat的格式, 然後按照格式用stream對象讀取*.dat文件即可.