upload file multipart in delphi

روی فرم دو تا کامپوننت زیر را گذاشته و کد زیر را برای ان بنویسید

 RESTClient1 و RESTRequest1

 try

    RESTClient1.BaseURL:='http://test.ir:3000/customer/sendFileToCustomer';

    RESTRequest1.AddFile('file','d:/test.png',ctMULTIPART_FORM_DATA);

    RESTRequest1.AddBody('', ctMULTIPART_FORM_DATA);

    RESTRequest1.AddParameter('code','');

    RESTRequest1.AddParameter('code2','');

    RESTRequest1.Params[0].Value:='1137';

    RESTRequest1.Params[1].Value:='403';

    RESTRequest1.Execute;

  finally

  end;

جستجو یک نام در پراسیجرها و توابع دیتابیس sql

جستجو یک نام در  پراسیجرها و توابع دیتابیس  sql

SELECT [Scehma]=schema_name(o.schema_id), o.Name, o.type 

FROM sys.sql_modules m

INNER JOIN sys.objects o

ON o.object_id = m.object_id

WHERE m.definition like '%name%'

GO

جستجو در mysql

SELECT * FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_DEFINITION LIKE "%search_string%";

پرش فیلد identity به 1000 بعد از هر restart دیتابیس

SQL Server identity values jump by 1000 when it is restarted

برای این که این اتفاق نیافتد کافی است مراحل زیر را طی کنید :

• Open "SQL Server Configuration Manager"
• Click "SQL Server Services" on the left pane
• Right-click on your SQL Server instance name on the right pane ->Default: SQL Server(MSSQLSERVER)
• Click "Properties"
• Click "Startup Parameters"
• On the "specify a startup parameter" textbox type "-T272"
• Click "Add"

رفع خطا زمان دیباگ در دلفی 7

اگر در زمان کامپایل با این خطا مواجه شدید project raised exception class eoleexception with message  مراحل زیر را دنبال کنید :

Tools > Debugger Options > Language Exceptions و بعد گزینه add  را بزنید "EOleException" را اضافه نمایید

فیلترگذاری بر روی dbgrideh دلفی

برای فیلتر گذاری روی dbgrideh کافی تنظیمات زیر انجام بدید 

uses   EhLibMTE;
MemTableEh1.Filtered:=true;
DBGridEh1.STFilter.Local:=true;
DBGridEh1.STFilter.InstantApply:=true;
DBGridEh1.STFilter.Visible:=true;

مرتب سازی dbgrideh در دلفی

نحوه مرتب سازی dbgrideh در دلفی

procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
  var i,j:Integer;
  sort_str: String;
begin
  for j:=0 to Column.Grid.Columns.Count-1 do
    if (Column.Grid.Columns[j].Title.SortMarker <> smNoneEh) and (Column.Grid.Columns[j]<>Column)
      then Column.Grid.Columns[j].Title.SortMarker := smNoneEh;
  case Column.Title.SortMarker of
    smNoneEh: Column.Title.SortMarker := smDownEh;
    smDownEh: Column.Title.SortMarker := smUpEh;
  end;
    smUpEh: Column.Title.SortMarker := smNoneEh;

case Column.Title.SortMarker of
smUpEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := Column.FieldName+' ASC';
smDownEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := Column.FieldName+' DESC';
smNoneEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := '';
end;
end

و یا  تنظیمات زیر

uses  ehlibADO;
dbGrideh1.OptionsEh.dghAutoSortMarking:=true;

نمایش ای پی سیستم در دلفی

 نمایش ای پی سیستم در دلفی

uses winsock;

{$R *.dfm}

function LocalIP: string;

type

TaPInAddr = array [0..10] of PInAddr;

PaPInAddr = ^TaPInAddr;

var

phe: PHostEnt;

pptr: PaPInAddr;

Buffer: array [0..63] of Ansichar;

i: Integer;

GInitData: TWSADATA;

begin

WSAStartup($101, GInitData);

Result := '';

GetHostName(Buffer, SizeOf(Buffer));

phe := GetHostByName(Buffer);

if phe = nil then

Exit;

pptr := PaPInAddr(phe^.h_addr_list);

i := 0;

while pptr^[i] <> nil do

begin

Result := StrPas(inet_ntoa(pptr^[i]^));

Inc(i);

end;

WSACleanup;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(LocalIP);

end;

Select top 10 records for each category

انتخاب ده رکورد اول از هر ایتم خاص در sql

SELECT rs.Field1,rs.Field2 
FROM (
    SELECT Field1,Field2, ROW_NUMBER() 
      OVER (Partition BY Section
            ORDER BY RankCriteria DESC ) AS Rank
    FROM table
    ) rs WHERE Rank <= 10

ایجاد لینک مستقیم از دراپ باکس

بایدعبارت https://dl.dropboxusercontent.com را جایگزین  https://www.dropbox.com کنیم . در مابقی ادرس تغییری ایجاد نمیشود

نصب کامپوننت socket در دلفی

The socket components are not installed by default. To use the socket components, you must install the dclsockets<.bpl> package.

To install the socket components:

1. Select Component > Install Packages.
2. In the Install Packages dialog box, click Add.
3. In the Add Design Package dialog, browse to C:\Program Files (x86)\Embarcadero\Studio\19.0\bin.
4. Select dclsockets250.bpl, and click Open.
5. Click OK to dismiss Install Packages dialog.
6. The socket components (TClientSocket and TServerSocket) are listed in the Internet category of the Toot Palette.

نمایش عکس از روی url در دلفی

برای نمایش عکس از روی url کد زیر استفاده می نماییم 

procedure TForm1.Button1Click(Sender: TObject);
var
    MS : TMemoryStream;
begin
   MS := TMemoryStream.Create;
   try
         IdHTTP1.get('http://image1.jpg',MS);
         ms.Position:=0;
         Image1.Picture.LoadFromStream(MS);
  finally
    FreeAndNil(MS);
  end;
end;

نمایش ارایه جیسون در دلفی

نمایش ارایه جیسون در دلفی

uses
  DBXJSON,
  System.SysUtils;
Const
StrJson =
  '['+
  '{"EventType":49,"Code":"234","EventDate":"20050202", "Result":1},'+
  '{"EventType":48,"Code":"0120","EventDate":"20130201", "Group":"g1"}'+
  ']';
procedure ParseJson;
var
  LJsonArr   : TJSONArray;
  LJsonValue : TJSONValue;
  LItem     : TJSONValue;
begin
   LJsonArr    := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(StrJson),0) as TJSONArray;
   for LJsonValue in LJsonArr do
   begin
      for LItem in TJSONArray(LJsonValue) do
        Writeln(Format('%s : %s',[TJSONPair(LItem).JsonString.Value,
        TJSONPair(LItem).JsonValue.Value]));
     Writeln;
   end;
end;
begin
  try
    ParseJson;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

تولید یک کد ترکیبی در sql

تولید یک کد ترکیبی  از کاراکترهای کوچک و بزرگ و اعداد در اس کیو ال سرور  که می تواند به عنوان مثال برای کد هدیه  استفاده شود

DECLARE @new_id VARCHAR(200)

SELECT @new_id = NEWID()
SELECT CAST((ABS(CHECKSUM(@new_id))%10) AS VARCHAR(1)) + 
CHAR(ASCII('a')+(ABS(CHECKSUM(@new_id))%25)) +
CHAR(ASCII('A')+(ABS(CHECKSUM(@new_id))%25)) +
LEFT(@new_id,3)

post url در دلفی از طریق http و دریافت به صورت json

 post url در دلفی از طریق http

function PostExample: string;
var
  lHTTP: TIdHTTP;
  lParamList: TStringList;
begin
  lParamList := TStringList.Create;
  lParamList.Add('id=1');

  lHTTP := TIdHTTP.Create;
  try
    Result := lHTTP.Post('http://blahblahblah...', lParamList);
  finally
    lHTTP.Free;
    lParamList.Free;
  end;
end;

نمایش json به تفکیک

 uses system.json

procedure TForm1.Button2Click(Sender: TObject);
var
   JSonObject:TJSonObject;
   st :='{"code":200,"message":"OK","data":{"code":3271,"mobile":"1"}}';
   JSonValue:TJSonValue;
   st:string;
Begin
   JsonValue:=JSonObject.ParseJSONValue(st);
   JSonObject := TJSonObject.Create;
   memo1.text:=(JsonValue as TJSONObject).Get('code').JsonValue.Value;
 //  JsonValue:=(JsonValue as TJSONObject).Get('data').JsonValue;
   JSonObject.Free;
end;

==================
نمونه دیگر ارسال 

procedure TForm2.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  ResponseContent: string;
  JSONContent: TStringStream;
  IOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  try
      IdHTTP := TIdHTTP.Create(nil);

      IOHandler:= TIdSSLIOHandlerSocketOpenSSL.Create(NIL);
      IOHandler.SSLOptions.SSLVersions := [sslvTLSv1, sslvSSLv2, sslvSSLv3];
      IdHTTP.IOHandler := IOHandler;

      IdHTTP.Request.ContentType    := 'application/json; charset=utf-8';
      IdHTTP.Request.AcceptEncoding := 'gzip, deflate, br';

      IdHTTP.Request.AcceptLanguage := 'Accept-Language';
      IdHTTP.Request.CustomHeaders.AddValue('apiKey', 'XXXXXXXXXXXXXXXXXX');
      IdHTTP.Request.CustomHeaders.AddValue('accept-language', 'fa');
      JSONContent := TStringStream.Create('{"mobile": "XXXX","method": "sms"}', TEncoding.UTF8);
      ResponseContent := IdHTTP.Post('https://url', JSONContent);

      showmessage(ResponseContent); // Display response content

 finally
   JSONContent.Free;
   FreeAndNil(IdHttp);
 end;

end;

نمایش ایکون برنامه در taskbar زمان hide شدن فرم اصلی دلفی

نمایش ایکون برنامه در taskbar زمان hide شدن فرم اصلی دلفی در dpr پروژه این مقدار رو به این شکل تغییر بدید.

Application.MainFormOnTaskbar := false;