برطرف نمودن خطای A previous program installation created pending file operations
درباره سایت
آخرین مطالب
امکانات وب
get memo line Memo1.Lines.Strings[i]
دریافت یک خط خاص از یک memo در دلفی
get listbox item text ListBox1.ItemIndex:=1; tt:= ListBox1.Items.Strings[ListBox1.ItemIndex];
دریافت یک خط خاص از لیست باکس در دلفی
if datamodule3.users.State =dsEdit then
آیا یک adoquery در حالت ویرایش هست یا خیر
تشخیص در حالت ویرایش بودن
برچسب:
نویسنده: باربد کریمیپور
host: time.windows.com Label1.Caption := DateToStr(IdSNTP1.DateTime) + ' - ' + TimeToStr(IdSNTP1.DateTime); Label2.Caption := IdSNTP1.Host;
get server time date delphi
برچسب:
نویسنده: باربد کریمیپور
باید در uses از StrUtils,math استفاده شود
function Bet(S: string; Thousands: Boolean;Sender: TObject): string;varI, MaxSym, MinSym, Group: Integer;IsSign: Boolean;beginfor I :=1 to Trunc(Length(S)/3)ادامه مطلب
برچسب:
نویسنده: باربد کریمیپور
سلام
با این کد می تونید با کلیک بر روی تایتل دی بی گرید ، همون فیلد رو سورت کنید.
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var cFieldName:string;
begin
cFieldName:= DBGrid1.Columns[Column.Index].FieldName;
Adoquery1.Sort:=cFieldName;
end;
راه دوم
var KindSotr1:Boolean;
if KindSotr1 then
datamodule3.customers.Sort:=Column.FieldName+' DESC'
else
datamodule3.customers.Sort:=Column.FieldName;
KindSotr1:=not(KindSotr1);
برچسب:
نویسنده: باربد کریمیپور
function IsNumber(N : String) : Boolean;
var
I : Integer;
begin
Result := True;
if Trim(N) = '' then
Exit(False);
if (Length(Trim(N)) > 1) and (Trim(N)[1] = '0') then
Exit(False);
ادامه مطلب
برچسب:
نویسنده: باربد کریمیپور
مشکل :
هنگام نصب افزونه، قالب و یا به روز رسانی وردپرس، اطلاعات FTP از من می
خواهد. اطلاعات را وارد می کنم اما قبول نمی کند. چه کار کنم ؟ پاسخ :
برای رفع این مشکل وارد فایل منیجر هاستتان شوید. فایل که مربوط به
تنظیمات ورد پرس است با نام wp-config.php را بیابید و بر روی آن کلیک کنید
سپس بر روی Edit در بالای صفحه برای تغییر محتویات کلیک کنید سپس کد زیر رادامه مطلب
برچسب:
نویسنده: باربد کریمیپور
اگر بخواهیم یکسری شماره تلفن که در اکسل وارد شده است را تبدیل به vcf نماییم مراحل زیر را انجام می دهیم
1-ستونهای اکسل را به ترتیب نام و نام خانوادگی ، شماره تماس و شماره ثابت قرار می دهیم
2-کلید کنترل + F11 را فشار می دهیم . در ادیتور ویژوال بیسیک کد را وارد می نماییم و اجرا می کنیم
فایل vcf آماده هست
Private Sub Create_VCF() 'Open a File in Specific ادامه مطلب
برچسب:
نویسنده: باربد کریمیپور
از داخل رجیستری مراحل زیر را انجام می دهید .به مسیر زیر داخل رجیستری می رویم.
Hekey_current_user…..software…..microsoft…..windows NT…….current version….windows
حال روی پوشه ویندوز کلیک راست کرده و گزینه permision را انتخاب می کنیم و
از داخل کادر گزینه add و سپس advance و سپس find now را می زنیم و every
one را انتخاب می کنیم تا به لیست اضافه شود .سپس permادامه مطلب
برچسب:
نویسنده: باربد کریمیپور
ساخت کاربر sa در sql server
CREATE LOGIN [sa] WITH PASSWORD=N'', DEFAULT_DATABASE=[master], CHECK_EXPIRATION=OFF, CHECK_POLICY=OFF
برچسب:
نویسنده: باربد کریمیپور
مراحل زیر را انجام دید :
Start Enterprise Manager.
Expand Microsoft SQL Servers, and then expand SQL Server Group.
Right-click the server that you want to change to SQL Server and Windows authentication, and then clickProperties.
In the SQL Server Pادامه مطلب
برچسب:
نویسنده: باربد کریمیپور
در دلفی اگر بخواهیم از دیتابیس ، عکس را خوانده و نمایش دهیم از قطعه کد ذیل استفاده می کنیم.این قطعه کد تست شده است.delphi image load from file
var
Field: TBlobField;
Stream: TStream;
Jpg: TJPEGImage;
begin
if ADOQuery.Active then
begin
Field := TBlobField(ADOQuery.FieldByName('ImageDatادامه مطلب
برچسب:
نویسنده: باربد کریمیپور
ذخیره عکس در دیتابیس
این روش تست شده و صد در صد جواب می دهد
var
Field: TBlobField;
Stream: TStream;
begin
if ADOQuery.Active and (Image.Picture.Graphic <> nil) then
begin
ADOQuery.Insert;
Field := TBlobField(ADOQuery.FieldByName('ImageData')); // ensure it ís a blob
Streaادامه مطلب
برچسب:
نویسنده: باربد کریمیپور