var
MS,MS2: TFileStream;
Pic : TJpegImage;
path:String;
begin
path := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
MS := TFileStream.Create(path + '040824-1-14.jpg',fmOpenRead);
MS2 := TFileStream.Create(path + 'new.jpg',fmCreate);
MS.Seek(0, soFromBeginning);
MS2.CopyFrom(MS,SizeOf(MS));
FreeAndNil(MS);
FreeAndNil(MS2);
end;040824-1-14.jpg'是有500多个字节的,为什么生成的new.jpg只有4个字节,请问上面程序是哪里出错啦?
MS,MS2: TFileStream;
Pic : TJpegImage;
path:String;
begin
path := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
MS := TFileStream.Create(path + '040824-1-14.jpg',fmOpenRead);
MS2 := TFileStream.Create(path + 'new.jpg',fmCreate);
MS.Seek(0, soFromBeginning);
MS2.CopyFrom(MS,SizeOf(MS));
FreeAndNil(MS);
FreeAndNil(MS2);
end;040824-1-14.jpg'是有500多个字节的,为什么生成的new.jpg只有4个字节,请问上面程序是哪里出错啦?
解决方案 »
- 求一个sql语句,查询每天数据的最大值如何实现,谢谢大家
- 请高手根据下面的要求给个算法,100分送上
- 求教SQL语句!急!急!急!
- 我窗体老被覆盖在它上面窗体搞花怎么办啊?
- 主线程与后台线程以及通讯的问题....想了好久也不知如何下手..请大伙看看
- 如何取得计算机名?
- 报表 QuickReport 问题
- 关于*.mdb的默认路径改变问提。送暴笑flash.
- 如何判断TListBox中的数据项发生变化?有这样的事件吗?
- ★★★快来抢100分★★★:<<delphi5开发人员指南程序>>第11章NOSYNCH.dpr中GlobalArray从(0,0,0,0....)到(1,3,5,7,9.....)变化的原理是什么?
- 如何获取dbnavigator上的单个按扭的单击事件?等
- 这里怎么没有人回答我得问题啊?????????
procedure TForm1.BitBtn1Click(Sender: TObject);
var
MS,MS2: TFileStream;
Pic : TJpegImage;
path:String;
begin
path := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
MS := TFileStream.Create(path + 'FlashImage.jpg',fmOpenRead);
MS2 := TFileStream.Create(path + 'new.jpg',fmCreate);
MS.Seek(0, soFromBeginning);
MS2.CopyFrom(MS,ms.Size);
FreeAndNil(MS);
FreeAndNil(MS2);
end;
再加个写的参数 试试
语句中ms对象实际是个指针,SizeOf(指针型变量)值等于4。
ms流的大小应该用ms.size.
MS2.CopyFrom(MS,ms.Size);
这样就可以了。
var
Steam1,Stream2,Stream3 :TFileStream;
begin
Result := False;
Steam1 := TFileStream.Create(SourceName,fmOpenRead);
try
Stream2 := TFileStream.Create(TargetName,fmOpenWrite or fmCreate);
try
Stream2.CopyFrom(Steam1,Steam1.Size);
Result := True;
finally
Stream2.Free;
end;
finally
Steam1.Free;
end;
end;
MS2.CopyFrom(MS,SizeOf(MS));
中的SIZEOF(MS)改为
ms.size.