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文件即可.