论坛 › Delphi交流 › 用delphi如何写小甲鱼老师讲c语言时候讲的那个图片合成器

11年__那些事儿 发表于 2013-6-17 17:39:59

用delphi如何写小甲鱼老师讲c语言时候讲的那个图片合成器

花了一下午的时间也没写好，求帮助。。。。
这是我的关键代码，
private
    { Private declarations }
    p_picture : Text;
    pic_name : Char;
    p_file : Text;
    file_name : Char;
    p_finish : Text;
    finish_name : Char;


procedure TForm1.btn1Click(Sender: TObject);
begin
if (edt1.Text = '') then
begin
    MessageBox(Handle, '请输入分离的图片名', '提示', MB_OK or MB_ICONINFORMATION);
    Exit;
end;
if (edt2.Text = '') then
begin
    MessageBox(Handle, '请输入分离的文件名', '提示', MB_OK or MB_ICONINFORMATION);
    Exit;
end;
if ('' = edt3.Text)then
begin
    MessageBox(Handle, '请输入你要合成的文件名', '提示', MB_OK or MB_ICONINFORMATION);
    Exit;
end;
//pb1.Visible := true;
AssignFile(p_picture, edt1.Text);   //将文件类型变量与文件关联起来
Reset(p_picture); //只读打开
while (not EOF(p_picture)) do    //EOF文件结尾
begin
    read(p_picture, pic_name);
    AssignFile(p_finish, finish_name);
    Rewrite(p_finish);//只写打开
    write(p_finish, pic_name);
end;
AssignFile(p_file, edt2.Text);   //将文件类型变量与文件关联起来
Reset(p_file); //只读打开
while (not EOF(p_file)) do    //EOF文件结尾
begin
    read(p_file, file_name);
    write(p_finish, pic_name);
end;


//MessageBox(Handle, '图片无法打开','提示', MB_OK or MB_ICONERROR);
end;

我想问题的关键在于delphi如何以打开二进制的方式打开文件吧？
希望各位给予帮助，谢谢！。。

释怀。 发表于 2013-6-17 18:31:05

我只是帮顶，呵呵

11年__那些事儿 发表于 2013-6-18 08:49:10

有钱都没人来解决啊？
真悲剧。。

11年__那些事儿 发表于 2013-6-20 14:35:58

delphi在这论坛里真是悲剧了。。
如上问题，已经解决，用流方法操作！！！

bypeng 发表于 2013-6-20 15:12:18

纯打酱油啊

aminghanhua 发表于 2013-6-20 15:46:02

发来程序啊别人都不知道是啥样的

11年__那些事儿 发表于 2013-6-21 16:06:37

aminghanhua 发表于 2013-6-20 15:46 static/image/common/back.gif
发来程序啊别人都不知道是啥样的

好的，简单实现，可以扩充

晨风吹过 发表于 2013-8-5 22:33:30

我也不知道啊

爱你一辈子 发表于 2015-7-25 20:24:42

我来看看

查看完整版本: 用delphi如何写小甲鱼老师讲c语言时候讲的那个图片合成器