Dosya Bölme

[espasem]

selam arkadaşlar.
seçilen bir dosyayı istenilen byte lara bölmek. bunun için önce dosya boyutunu öğrenmem lazım. ok. fakat bunu yaptıktan sonra hangi kodla dosyayı bölebilirim.bunun için bir fonksiyon varmı?
yardımlarınız için teşekkürler[/code]

[fduman]

Hazır bir function yok. TFileStream ile dosyayı açıp, stream'in read methodu ile kaç byte okumak istiyorsan okutup, başka bir filestream'e write ile yazabilir ve dosyayı bölebilirsin. Bence forumda bir arama yap. Hazır yazılmış bir kod bulabilirsin belki.

[espasem]

bir örnek varsa gönderirseniz sevinirim
espasem@mynet.com

[fduman]

Elimde hazır yok. Sitenin arama bölümünden bir bak istersen.

[aLonE CoDeR]

Merhaba.
TFileStream türünde Create ettiğiniz dosyanın bir kopyasını, TFile tipinde Create edilen başka bir değişkene "CopyFrom(Createedilendosya, kopyalanakcakbyte )" metoduyla istediğiğniz işlemi yaptırabilirsiniz..
Kolay gelsin..

[Talat Doğan]

Merhaba,

2002 yılında, aşağıda verdiğim Split adlı prosedürü kullanmışım.

Talat Doğan

_____________________________________________________________

function extractfname(fil:string):string;
begin
while pos('\',fil)<>0 do delete(fil,1,pos('\',fil));
extractfname:=fil;
end;

function MakeItAString(I: cardinal): string;
var
S: string[11];
begin
Str(I, S);
Result:= S;
end;

function RightStr(const AText: string; const ACount: Integer): string;
begin
Result := Copy(AText, Length(AText) + 1 - ACount, ACount);
end;

procedure Split(var FileToSplit,DestinationDir:string);
var
FromF, ToF: file;
SplittedName:string
SplitCounter,NumRead, NumWritten: Integer;
Buf: array[1..65000] of Char;
begin
SplittedName:='Split';
AssignFile(FromF, FileToSplit);
Reset(FromF, 1);
SplitCounter:=0;
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
if NumRead=0 then break;
AssignFile(ToF, DestinationDir+'\Split_'+extractfname(FileToSplit)+'.'+RightStr('000'+MakeItAString(SplitCounter),3));
Rewrite(ToF, 1);
BlockWrite(ToF, Buf, NumRead, NumWritten);
CloseFile(ToF);
inc(SplitCounter);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
end;
_____________________________________________________________

[espasem]

kod için teşekkürler
ama ben hiç bişey anlamadım. açıklarsanız sevinirim. çokkkk sağolun