FileStream در دلفی

[iman-63]

با سلام خدمت دوستان.
اگه ممکنه در مورد FileStream یه چیزایی اینجا بزارید.
مثلاً چطور یه فایل با پسوند دلخواه ایجاد کنیم. چطور توی اون فایل بنویسیم، چطور بخوانیم و جستجو کنیم.
با تشکر

[lord_viper]

filestream دارای متدهای مختلف هست
شما میتونین با متد read از فایل بخونین
متد write تو فایل بنویسین
متد seek به مکان خاصی از فایل برید
متدcreate برای باز کردن ذخیره کردن و .... بکار میره البته ارگومانهای مختص به خود دارن هر کدام از این متدها
help دلفی کامل توضیح داده

[iman-63]

سلام
من help دلفی رو خوندم اما چیزی نفهمیدم.
اگه امکان داره یه مثال بذارین که باهاش بشه یه فایل مثلاً بنام sam.ppp ساخت و یه دیتا write('ABNDEF',10);q
داخلش نوشت. که ABCDEF اطلاعاتمونه و 10 طول اطلاعاته.

[lord_viper]

کد:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs:TFileStream;
  s:string;
begin
  s:='ABCDEFGH';
  //neveshtan dar file
fs:=TFileStream.Create('sam.ppp',fmCreate);
try
  fs.Seek(0,soFromBeginning);
  fs.Write(s,SizeOf(s));
finally
  fs.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  fs:TFileStream;
  n:string;
begin
  //khandan az file
fs:=TFileStream.Create('sam.ppp',fmOpenRead);
try
fs.Seek(0,soFromBeginning);
fs.Read(n,5);
SetLength(n,5);
ShowMessage(n);
finally
  fs.Free;
end;

[iman-63]

با سلام.
برنامه یه جاهایی درست کار نکرد. توی کمپایل شدن ایرادی نداره اما موقع اجرا کردن دستور read ...
یه سوال دیگه که داشتم اینه که در دستورات read و write اگه دوتا دستور read پشت سرهم بیاد اطلاعات چطور ذخیره میشه؟
مثلاً دو دستور:

کد php:

fs.Read(file1 ,10);
fs.Read(file2 ,15); 


وقتی پشت سرهم بیاد روندش چطوره؟ آیا 10 بایت اول رو در file1 و 15 بایت دوم رو در file2 می ریزه؟
همینطور برا دستور write.

[lord_viper]

file1 و file2 هر دو بافر هستن و پشت سر هم نوشته میشن برای دسترسی به فایل 1 باید 25 بایت برین عقب از مکان فعلی و برای file2 باید 15 بایت عقب برین

[iman-63]

برنامه تو این خط error میگیره:

کد php:

fs:=TFileStream.Create('sam.ppp',fmOpenRead); 


نمیتونه فایلو باز کنه. البته من آدرس رو اینطوری هم دادم: c:\sam.ppp . همچنین از دلفی 6 استفاده میکنم.

[lord_viper]

ادرس این فایل با فایلی که ساخنه میشه باید یکی باشه و همچنین یادتون باشه وقتی کار با stream تموم شد حتما اونو free کنین
ادرس فایل در fs:=TFileStream.Create('sam.ppp',fmCreate); و fs:=TFileStream.Create('sam.ppp',fmOpenRead); باید یکی باشه واون اروری هم که میده اینجا بزارید

[iman-63]

یادتون باشه وقتی کار با stream تموم شد حتما اونو free کنین

فایل رو نبسته بودم!!!

[iman-63]

یه مشکل عجیب دیگه!!!!!!!!!!!!

وقتی برنامه رو اجرا کردم و شروع به کار کرد یه باره این پیام میاد:

Not enough storage is available to process this command

به task manenger که نگاه کردم دیدم memory uses مرتباً زیاد میشه تا به 400mb می سره و این پیام میاد.
فکر کنم مربوط به File stream باشه که اینقدر ram میگیره.
چیکار کنم؟

[lord_viper]

مگه چیکارمیکنی؟
من از filestream زیاد استفاده میکنم و تا حالا به چنین مشکلی بر نخوردم
احتمالا مشکل از کدتونه