تبدیل اکسل به vcf

اگر بخواهیم یکسری شماره تلفن که در اکسل وارد شده است را تبدیل به vcf نماییم مراحل زیر را انجام می دهیم

1-ستونهای اکسل را به ترتیب نام و نام خانوادگی ، شماره تماس و شماره ثابت قرار می دهیم

2-کلید کنترل + F11 را فشار می دهیم . در ادیتور ویژوال بیسیک کد را وارد می نماییم و اجرا می کنیم

فایل vcf  آماده هست

 

Private Sub Create_VCF()
    'Open a File in Specific Path in Output or Append mode
    Dim FileNum As Integer
    Dim iRow As Double
    iRow = 2
    FileNum = FreeFile
    OutFilePath = "D:\OutputVCF.VCF"
    Open OutFilePath For Output As FileNum
 
    'Loop through Excel Sheet each row and write it to VCF File
    While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> ""
        LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1))
        FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2))
        PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3))
 
        Print #FileNum, "BEGIN:VCARD"
        Print #FileNum, "VERSION:3.0"
        'Print #FileNum, "N:" & LName & ";" & FName & ";;;"
        Print #FileNum, "FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:" & LName
        Print #FileNum, "TEL;TYPE=WORK,VOICE;TYPE=PREF:" & FName
        Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
        Print #FileNum, "END:VCARD"
        iRow = iRow + 1
    Wend
 
    'Close The File
    Close #FileNum
    MsgBox "Contacts Converted to Saved To: " & OutFilePath & " "
End Sub

مدت زمان: 3 دقیقه 11 ثانیه

 

آموزش رفع مشکل نصب افزونه و قالبهای ورد پرس

مشکل :
هنگام نصب افزونه، قالب و یا به روز رسانی وردپرس، اطلاعات FTP از من می خواهد. اطلاعات را وارد می کنم اما قبول نمی کند. چه کار کنم ؟

پاسخ :
برای رفع این مشکل وارد فایل منیجر هاستتان شوید. فایل که مربوط به تنظیمات ورد پرس است با نام wp-config.php را بیابید و بر روی آن کلیک کنید سپس بر روی Edit در بالای صفحه برای تغییر محتویات کلیک کنید
سپس کد زیر را به انتهای فایل فوق اضافه کرده و آن را Save کنید :

if(is_admin()) {
add_filter('filesystem_method', create_function('$a', 'return "direct";' ));
define( 'FS_CHMOD_DIR', 0755 );
}

برطرف نمودن خطای Not associated with a trusted SQL Server connection

مراحل زیر را انجام دید :

1. Start Enterprise Manager.
2. Expand Microsoft SQL Servers, and then expand SQL Server Group.
3. Right-click the server that you want to change to SQL Server and Windows authentication, and then click
   Properties.
4. In the SQL Server Properties dialog box, click the Security tab, click SQL Server and Windows, and then click OK.
5. When you are prompted to re-start the SQL Server service, click Yes.

مرجع :

https://support.microsoft.com/en-us/help/889615/you-may-receive-a-not-associated-with-a-trusted-sql-server-connection

ذخیره عکس در دیتابیس

ذخیره عکس در دیتابیس

این روش تست شده و صد در صد جواب می دهد

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
    Stream := ADOQuery.CreateBlobStream(Field, bmWrite);
    try
      Image1.Picture.Graphic.SaveToStream(Stream);
    finally
      Stream.Free;
      ADOQuery.Post;
    end;
  end;
end;    

خواندن عکس از دیتابیس

در دلفی اگر بخواهیم از دیتابیس ، عکس را خوانده و نمایش دهیم از قطعه کد ذیل استفاده می کنیم.

این قطعه کد تست شده است.

delphi image load from file

var
  Field: TBlobField;
  Stream: TStream;
  Jpg: TJPEGImage;
begin
  if ADOQuery.Active then
  begin
    Field := TBlobField(ADOQuery.FieldByName('ImageData'));
    Stream := ADOQuery.CreateBlobStream(Field, bmRead);
    Jpg := TJPEGImage.Create;
    try
      Jpg.LoadFromStream(Stream);
      Image1.Picture.Graphic := Jpg;
    finally
      Jpg.Free;
      Stream.Free;
    end;
  end;
end;

کامپوننت Kylix_SMS_v5.5.0.4_Fulll

کامپوننت Kylix_SMS_v5.5.0.4_Fulll

دانلود

تست اینکه آیا یک سرویس وجود دارد یا خیر

function TForm1.ServiceIsPresent(sMachine, sService: PChar): Boolean;
var
SCManHandle, SvcHandle: SC_Handle;
begin
SCManHandle := OpenSCManager(sMachine, nil, SC_MANAGER_CONNECT);
if (SCManHandle > 0) then
begin
SvcHandle := OpenService(SCManHandle, sService, SERVICE_QUERY_STATUS);
if (SvcHandle > 0) then
begin
Result := True;
CloseServiceHandle(SvcHandle);
end
else
Result := False;
CloseServiceHandle(SCManHandle);
end;
end;

روش استفاده :
if ServiceIsPresent(nil,pchar('sqlserver')) then
// some code
end;

در صورتیکه نام سرویس را میدانیم و میخواهیم فولدری که از آنجا اجرا شده را بیابیم :

function TForm1.GetServiceExecutablePath(strMachine: string; strServiceName: string): String;
var
hSCManager,hSCService: SC_Handle;
lpServiceConfig: PQueryServiceConfigA;
nSize, nBytesNeeded: DWord;
begin
Result := '';
hSCManager := OpenSCManager(PChar(strMachine), nil, SC_MANAGER_CONNECT);
if (hSCManager > 0) then
begin
hSCService := OpenService(hSCManager, PChar(strServiceName), SERVICE_QUERY_CONFIG);
if (hSCService > 0) then
begin
QueryServiceConfig(hSCService, nil, 0, nSize);
lpServiceConfig := AllocMem(nSize);
try
if not QueryServiceConfig(
hSCService, lpServiceConfig, nSize, nBytesNeeded) Then Exit;
Result := lpServiceConfig^.lpBinaryPathName;
finally
Dispose(lpServiceConfig);
end;
CloseServiceHandle(hSCService);
end;
end;
end;

روش استفاده :

mysql_dir := GetServiceExecutablePath('','mysql');

حذف یک فولدر با تمامی زیر فولدرها و فایلهای داخلش

procedure TForm1.DeleteDirectory(const DirName: string);
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp), 0);
FileOp.wFunc := FO_DELETE;
FileOp.pFrom := PChar(DirName+#0);//double zero-terminated
FileOp.fFlags := FOF_SILENT or FOF_NOERRORUI or FOF_NOCONFIRMATION;
SHFileOperation(FileOp);
end;

باید ShellAPI را به uses اضافه نمایید.

بستن یک برنامه (EXE) دیگر از داخل برنامه

اضافه کردن یونیت :

Tlhelp32

اضافه کردن تابع :

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

طریقه استفاده :

procedure TForm1.btnOKClick(Sender: TObject);
begin
  KillTask('NameOfProgram.exe');
end;

دسترسی هر کاربر به فایلهای ارسالی خودش در وردپرس

قسمت رسانه چجوری میشه کاری کرد که هر کسی فقط فایل هایی که خودش اپلود کرده رو ببینه،؟

add_filter( 'ajax_query_attachments_args','wpmaster_restrict_media_library_to_none_admin');

 function wpmaster_restrict_media_library_to_none_admin( $args )

{

if(current_user_can('manage_options')) return $args;

   $args['author']     = get_current_user_id();

   return $args;

}