دریافت ساعت و تاریخ از سرور

host: time.windows.com

Label1.Caption := DateToStr(IdSNTP1.DateTime)
   + ' - ' + TimeToStr(IdSNTP1.DateTime);
Label2.Caption := IdSNTP1.Host;

 

get server time date delphi

جدا کردن سه رقم در edit دلفی

باید در uses از StrUtils,math استفاده شود

function Bet(S: string; Thousands: Boolean;Sender: TObject): string;
var
I, MaxSym, MinSym, Group: Integer;
IsSign: Boolean;
begin
for I :=1 to Trunc(Length(S)/3) do
Delete(S,Pos(ThousandSeparator,S),1);
Result := '';
MaxSym := Length(S);
IsSign := (MaxSym > 0) and (AnsiChar(S[1]) in ['-', '+']);
if IsSign then MinSym := 2
else MinSym := 1;
I := Pos(DecimalSeparator, S);
if I > 0 then MaxSym := I - 1;
I := Pos('E', UpperCase(S));
if I > 0 then MaxSym := Min(I - 1, MaxSym);
Result := Copy(S, MaxSym + 1, MaxInt);
Group := 0;
for I := MaxSym downto MinSym do
begin
Result := S[i] + Result;
Inc(Group);
if (Group = 3) and Thousands and (I > MinSym) then
begin
Group := 0;
Result := ThousandSeparator + Result;
end;
end;
if IsSign then Result := S[1] + Result;
if (Sender is TEdit) then
TEdit(sender).Perform(WM_KeyDown,VK_End,0)
end;
///////////////////
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text:=bet(Edit1.Text,true,Sender);
end;

تشخیص عدد بودن inputbox در دلفی

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);

   for I := 1 to Length(N) do

     begin

       if not (N[I] in ['0'..'9']) then

          begin

             Result := False;

             Break;

          end;

     end;

var  avalue:string;

isn:boolean;

begin

  avalue:=inputbox ('test1','test2','');

  isn:=isnumber(avalue);

 if isn=true then

   showmessage('yes')

   else

   showmessage('no');

  end;

سورت dbgrid در دلفی با کلیک بر روی تایتل

سلام

با این کد می تونید با کلیک بر روی تایتل دی بی گرید ، همون فیلد رو سورت کنید.

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);

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

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

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

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;