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

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

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

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

بدست آوردن نام هاست از طریق IP

با سلام

بدست آوردن نام Host از طریق IP


function IPAddrToName(IPAddr: string): string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));
  HostEnt:= GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt<>nil then
  begin
    Rresult:=StrPas(Hostent^.h_name)
  end
  else
  begin
    Result:='';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IPAddrToName(Edit1.Text);
end;

تغییر پشت زمینه دستکاپ

با سلام خدمت دوستان


بعد مدت ها گفتیم یک پستی بزنیم که بگیم هنوز زنده ایم!


  if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar('Addresssssss'),
      SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then
    RaiseLastOSError;

سورس کد برای اندروید در دلفی

اگه قصد برنامه نویسی اندروید با استفاده از دلفی XE5 را دارید در این صفحه مثال های جالبی است

ایجاد یک وقفه

Procedure Pause(HS : longint); assembler;
Asm
        mov     es,Seg0040
        mov     si,006Ch
        mov     dx,word ptr es:[si+2]
        mov     ax,word ptr es:[si]
        add     ax,word ptr [HS]
        adc     dx,word ptr [HS+2]
@@1:
        mov     bx,word ptr es:[si+2]
        cmp     word ptr es:[si+2],dx
        jl      @@1
        mov     cx,word ptr es:[si]
        cmp     word ptr es:[si],ax
        jl      @@1
End;