Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Как оперделить все IP и порты на моем компьютере
Функции GetTcpTable, GetUdpTable.
Импорт GetTcpTable:
unitTcpTable; interface
type
PDWord = ^Longword; PMIB_TCPROW = ^TMIB_TCPROW; TMIB_TCPROW = record
dwState: LongWord; dwLocalAddr: LongWord; dwLocalPort: LongWord; dwRemoteAddr: LongWord; dwRemotePort: LongWord; end
; PMIB_TCPTABLE = ^TMIB_TCPTABLE; TMIB_TCPTABLE = record
dwNumEntries: LongWord; table: array
[0..0] of
TMIB_TCPROW; end
; function
GetTcpTable(var
TcpTable: PMIB_TCPTABLE; var
Size: PDWord; bOrder: Boolean): LongWord; stdcall
implementation
function
GetTcpTable; external
'Iphlpapi.dll' name 'GetTcpTable'; end
.
Вызов GetTcpTable:
{$R-}
Entries := 16;
Sz := SizeOf(TMIB_TCPTABLE) + SizeOf(TMIB_TCPROW) * (Entries - 1);
pMibTable := nil;
try
repeat
ReallocMem(pMibTable, Sz);
Res := GetTcpTable(pMibTable^, Sz, False);
until
Res <> ERROR_INSUFFICIENT_BUFFER;
if
Res <> NO_ERROR then
begin
ShowMessage(SysErrorMessage(Res));
exit;
end
;
for
Entries := 0 to
pMibTable.dwNumEntries - 1 do
begin
< Делать что - то >
end
;
finally
FreeMem(pMibTable);
end
;
{$R+}