خوب وقتی می خواهی در برنامه فایلی را انتخاب کنید که این فایل در یک پوشه ای که نامش فارسی است و از یکی از حروفات ( گکپچژ) استفاده شده است پیغام خطا می دهد
یا وقتی که نام فایل فارسی است یعنی از حروفات ( گکپچژ) در نامش استفاده شده است برنامه آن فایل را پیدا نمی کند
چطوری می شه این مشکل را حل کرد یعنی برنامه تمام حروفات فارسی را قبول کنه و نام فایل یا پوشه از هر حروفی باشه راباز کند
پیشاپیش تشکر می کنم
سلام
از چه كنترلي استفاده مي كنيد؟
کد:function FindFile(Path,Files:String):tStrings;
Var
Dirs,Fill:String;
IO,len,i:Integer;
Search:TsearchRec;
Begin
Result:=TStringList.Create;
If Path='' then exit;
While Pos(';',files)>0 do
Files[Pos(';',Files)]:=' '; //****
Dirs:='';
If Path[Length(Path)]='\' then
Delete(path,length(path),1);
Repeat
I:=Length(Files);
Repeat
Fill:='';
While (I>0) and (files[I]<>';') do //' ') do //******
Begin
Fill:=files[I]+Fill;
I:=i-1;
end;
I:=i-1;
IO:=findFirst(path+'\'+fill,faAnyFile-faDirectory,Search);
While Io=0 do
Begin
If (search.Name<>'.') and (search.name<>'..') then
Result.Add(path+'\'+Search.name);
IO:=FindNext(Search);
end;
FindClose(search);
until I<1;
IO:=FindFirst(Path+'\*.*',faAnyFile,Search);
While IO=0 do
Begin
If (search.Name<>'.') and (search.name<>'..') and (search.Attr and FaDirectory>0) then
Dirs:=Dirs+Path+'\'+Search.Name+#13;
Io:=FindNext(search);
end;
FindClose(search);
Len:=length(Dirs)-1;
Io:=len;
If Len>0 then
Begin
While (IO>0) and (Dirs[IO]<>#13) do Io:=IO-1;
Path:=Copy(Dirs,IO+1,Len-IO);
SetLength(Dirs,IO);
end;
Until(len<0);
end;
من وقتی با این تابع فایل ها را جستجو می کنم فایل هایی که در یک پوشه فارسی قرار دارند را نشان نمی ده
ویا وقتی که عکسی را که در یک پوشه فارسی قرار دارد را در برنامه باز می کنم پیغام خطا می ده file not found
خوب مشکل چیست نمی دونم؟کد:if open1.execute then
Image1.Picture.LoadFromFile(open1.filename);
خوب ما گفتیم ولی شما انگار رفتید اما هر وقت آمدید یک سری به این بحث بزنید و نظری در باره مشکل ما بگیدنقل قول:
از تمام دوستانی که قبلا با این مشکل مواجه شدن و حلش کردن درخواست کمک دارم ( مشکل در باره نوشته های فارسی در مسیر فایل ها می باشد که در برنامه نمی توانم از فایل هایی که در نام و یا مسیرشان از حروف فارسی استفاده کردن استفاده کنم)
سلامنقل قول:
مشكلي نداشت!
يك پوژه به اسم گچپژ ساختم و يك فايل عكس داخلش قرار دادم، فايل با كدي كه شما نوشتيد باز شد.
با سلام
دوست عزیزم فکر کنم مشکل شما مربوط به سیستم عامل تان باشد. احتمالا فارسی ساز نصب کرده باشین!
این مشکل هم در ویندوز xp_sp1 هست و هم در XP_Sp2نقل قول:
در ضمن من هیچ فارسی سازی را هم نصب نمی کنم
اصلا اگر فارسی ساز هم نصب است پس چرا خود ویندوز ویا برنامه هایی چون Wordpad و غیره این مشکل را ندارن؟
اگر از کامپوننتی استفاده می کنند حتما برای دلفی این کامپوننت ارائه شده است .
خوب وقتی شما امتحان کردید و برنامه اجرا شده و مشکلی نداشته است حتما مشکل از ویندز من استنقل قول:
از شما خیلی ممنون هستم .
ولی برنامه های دیگر به راحتی به پوشه های فارسی ( پوشه هایی که در نامشان از حروفات (گکپژ) استفاده شده) دسترسی دارن ولی من نمی تونم با دلفی به این پوشه ها دسترسی داشته باشم .
یک سوال : آیا می تونه مشکل از فونت برنامه باشه مثلا فونت پوشه ها با فونت برنامه من یکسان نباشه ؟
با سلام
البته دوست عزیز ایراد از فونت هم میتونه باشه. فونت مورد استفاده شما چیه؟
خوب هر فونتی که مربوط به ویندوز است را امتحان کردم مثلا فونت تاهوما یا آریا و غیره...نقل قول:
ولی به نتیجه ای نرسیدم.