如何将读出图象的点阵（简单实现就行） ( 积分: 100 )

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-09

• #1

如何将读出图象的点阵，转化成字符串，然后写到一个字符串数组里面
就象通常一幅图片的下面的格式，
Picture.Data = {
07544269746D617036002400424D360024000000000036000000280000000004
000000030000010018000000000000002400C40E0000C40E0000000000000000
0000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
}

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-09

• #2

如何将读出图象的点阵，转化成字符串，然后写到一个字符串数组里面
就象通常一幅图片的下面的格式，
Picture.Data = {
07544269746D617036002400424D360024000000000036000000280000000004
000000030000010018000000000000002400C40E0000C40E0000000000000000
0000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
}

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-09

• #3

定义一个字符串数组，然后把图片文件按filestream方式打开，直接read(数组，文件大小)就ok了。

 

K

kenny.hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-09

• #4

好象NMUUProcessor可以做到....

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #5

如果按流方式读，那能通过流还原图片么？

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #6

可以，filestream.savetofile就还原了

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-14

• #7

能不能给我写下简单的代码
然后就发分

 

Z

zxdcyl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-14

• #8

我也想知道，帮顶

 

X

x_shm@yahoo.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-15

• #9

订阅此问题!

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-21

• #10

还有人能帮我么？

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-21

• #11

可以对

写到 string 里面；
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
stream: TStringStream;
size: int64;
begin
stream:=TStringStream.Create('');
try
image1.Picture.Graphic.SaveToStream(Stream);
size:=Stream.size;
stream.Position:=0;
s:=stream.ReadString(Size);
finally
stream.Free;
end;
end;

读，就反过来就行了

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-24

• #12

多人接受答案了。