سلام...نقل قول:
سلام
از تابع IntToHex استفاده كنيد.
نتيجه رشته است.
خيلي لطف كردين...
خداوند بر علمتان بيفزاد...:)
Printable View
سلام...نقل قول:
سلام
از تابع IntToHex استفاده كنيد.
نتيجه رشته است.
خيلي لطف كردين...
خداوند بر علمتان بيفزاد...:)
خيلي هم خوبه
با سلام...
من مي خوام يك فايل رو كه از OpenDialog بدست مياد رو آدرسش رو به صورت 16bit FileName درش بيارم...
...با تشكر
سلامنقل قول:
يعني چي؟ منظورتان Long FileName و Short FileName است؟
کد:uses
Windows, SysUtils;
function GetShortName(sLongName: string): string;
var
sShortName: string;
nShortNameLen: integer;
begin
SetLength(sShortName, MAX_PATH);
nShortNameLen := GetShortPathName(PChar(sLongName),
PChar(sShortName), MAX_PATH - 1);
if nShortNameLen = 0 then
begin
{ handle errors... }
end;
SetLength(sShortName, nShortNameLen);
Result := sShortName;
end;
function GetLongName(sShortName: string; var bError: boolean): string;
var
bAddSlash: boolean;
SearchRec: TSearchRec;
nStrLen: integer;
begin
bError := False;
Result := sShortName;
nStrLen := Length(sShortName);
bAddSlash := False;
if sShortName[nStrLen] = '\' then
begin
bAddSlash := True;
SetLength(sShortName, nStrLen - 1);
dec(nStrLen);
end;
if ((nStrLen - Length(ExtractFileDrive(sShortName))) > 0) then
begin
if FindFirst(sShortName, faAnyFile, SearchRec) = 0 then
begin
Result := ExtractFilePath(sShortName) + SearchRec.name;
if bAddSlash then
begin
Result := Result + '\';
end;
end
else
begin
// handle errors... bError := True;
end;
FindClose(SearchRec);
end;
end;
ببخشيد كه اين سوال رو ميكنم:
من شروع كردم به برنامه نويسي البته الگوريتم و c++ ولي اطلاعي در مورد دلفي ندارم كسي ميتواند توضيح مختصري از اين زبان و كاربرد آن بگويد؟
با تشكر
با سلام :11:
چه جوري بايد يه كامپوننت رو تو دلفي نصب كنيم؟ بعد نصب چه جوري بذاريم تو فرم؟ موقع انتقال فايل exe اي كه از اين كامپونت توش استفاده شده انتقال كامپوننت هم لازمه؟
ممنون ميشم اگه جواب بدين:20:
سلام
براي نصب معمولا از منوي Component گزينه Install Component را انتخاب كنيد و يا Install Packages
براي استفاده كافيه كامپوننت را بكشيد و بيندازيد روي فرم.
خير نيازي نيست.
قصد نصب كامپوننت خاصي را داريد يا بصورت كلي پرسيديد؟
من تو هنگ همون unzip كردن يه فايل zip پسورد دار با دلفي موندم!نقل قول:
اگه ميشه بيشتر كمك كن!:43:
کد:http://forum.p30world.com/showthread.php?t=245320
سلام دوست عزيز...نقل قول:
سلام
يعني چي؟ منظورتان Long FileName و Short FileName است؟
آره منظورم همين بود و جواب شما درست بود و جواب داد...
NoneForce عزيز واقعا نميدونم چه شكلي ازت تشكر كنم! :43:
ولي بازم ميگم ازت خيلي خيلي ممنونم :11:
فقط يه مشكلي كه هست اينه كه هيچ اطلاعي درباره ي نصب كامپونت مخصوصا VclZip ندارم! اونجور كه شما گفتي اينكارا رو ميكنم:
Component --> Install Component --> Into New package
بعد تو قسمت Unit file name و Package file name ادرس فايل pas و dpk رو كه به همراه فايلاي ديگه ي داخل فولدش دانلود كردم رو ميدم در قسمت Package description هم مينويسم VclZip ولي موقع ساختن Package اين پيغام خطا رو ميده:
cannot load package 'VCLZIPD7_3'. It Contains unit ;'kpZcnst,' which is also contained in package 'dclusr70' ا
ديگه نميدونم چيكار كنم!:41: