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

11年__那些事儿

花了一下午的时间也没写好，求帮助。。。。
这是我的关键代码，
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如何以打开二进制的方式打开文件吧？
希望各位给予帮助，谢谢！。。

释怀。

我只是帮顶，呵呵

11年__那些事儿

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

11年__那些事儿

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

bypeng

纯打酱油啊

aminghanhua

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

11年__那些事儿

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

                               
登录/注册后可看大图

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

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

晨风吹过

我也不知道啊

爱你一辈子

我来看看