تولید یک کد ترکیبی در 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;

تغییر مرورگر پیش فرض ویندوز

تغییر مرورگر پیش فرض ویندوز با اصلاح مسیر زیر در رجیستری

HKEY_CLASSES_ROOT\http\shell\open\command

HKEY_CLASSES_ROOT\https\shell\open\command

 SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0,

Integer(PChar('Environment')));

نگه داری عکس با فرمت base64 در دلفی

تبدیل عکس به base 64 و ذخیره در دیتابیس به صورت رشته ای و تبدیل رشته کد شده به عکس 

uses Soap.EncdDecd

procedure DecodeToFile(const base64: AnsiString; const FileName: string);

var

  stream: TFileStream;

  bytes: TBytes;

begin

  bytes := DecodeBase64(base64);

  stream := TFileStream.Create(FileName, fmCreate);

  try

    if bytes<>nil then

      stream.Write(bytes[0], Length(Bytes));

  finally

    stream.Free;

  end;

end;

function EncodeFile(const FileName: string): AnsiString;

var

  stream: TMemoryStream;

begin

  stream := TMemoryStream.Create;

  try

    stream.LoadFromFile(Filename);

    result := EncodeBase64(stream.Memory, stream.Size);

  finally

    stream.Free;

  end;

end;

procedure TForm1.EncodeButton1Click(Sender: TObject);

begin

  str:= EncodeFile('d:\pic.jpg');

end;

procedure TForm1.DecodeClick(Sender: TObject);

begin

DecodeToFile(str,'c:\xx.jpg') ;

end;