Estoy tratando de desunir con este codigo (intente con el tuyo pero intente solucionar el problema yo mismo y falle ...) :
Código Delphi
[-]var
Source, Target: TStream;
SourceName, TargetName: string;
Size: Int64;
begin
SourceName := 'salida.out';
TargetName := 'programa.exe';
Source := TFileStream.Create(SourceName, fmOpenRead);
try
Source.ReadBuffer(Size, SizeOf(Size));
Source.Seek(2232832, 10751);
Source.ReadBuffer(Size, SizeOf(Size));
Target := TFileStream.Create(TargetName, fmCreate);
try
Target.CopyFrom(Source, Size);
finally
Target.Free;
end;
finally
Source.Free;
end;
end;
En el codigo estoy tratando de guardar solo el segundo programa pero el ide me devuelve "stream read error" , en el codigo leo a partir del primer archivo para poder leer el segundo programa , ¿ como se soluciona ?