DELPHI 官網 範例

DELPHI  官網 範例
Complete List of Delphi Code Examples From Docwiki

 
https://capecodgunny.blogspot.com/2013/07/complete-list-of-delphi-code-examples.html

 

Google Maps über COM (Component Object Model) 谷歌 地圖

Google Maps über COM (Component Object Model)

jasontpenny 
GMLib 
Rodrigo 
TGoMaps Lite
DelphiMaps 
Der Preis.
Die Flexibilität.

1. Panoramio API 
2. KeyDragZoom Library 
3. MarkerClustererPlus Library 
4. RichMarker Library 

Undocumented MessageBoxTimeOut function 時間 倒數 訊息

http://www.delphibasics.info/home/delphibasicssnippets

Undocumented MessageBoxTimeOut function

function MessageBoxTimeOut( 
      hWnd: HWND; lpText: PChar; lpCaption: PChar; 
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
function MessageBoxTimeOutA( 
      hWnd: HWND; lpText: PChar; lpCaption: PChar; 
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;

function MessageBoxTimeOutW( 
      hWnd: HWND; lpText: PWideChar; lpCaption: PWideChar; 
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;

implementation 

// this const is not defined in Windows.pas 
const 
  MB_TIMEDOUT = 32000; 

function MessageBoxTimeOut; externaluser32 name 'MessageBoxTimeoutA'; 
function MessageBoxTimeOutA; external user32 name 'MessageBoxTimeoutA'; 
function MessageBoxTimeOutW; external user32 name 'MessageBoxTimeoutW';

---

var 
  iResult: Integer; 
  iFlags: Integer; 
begin 
  // Define a MessagBox  with an OK button and a timeout of 2 seconds 
  iFlags  := MB_OK or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION;
  iResult := MessageBoxTimeout( 
   Application.Handle, 
   'Test a timeout of 2 seconds.', 
   'MessageBoxTimeout Test', iFlags, 0, 2000); 

  // iResult will = 1 (IDOK) 
  ShowMessage(IntToStr(iRet)); 

  // Define a MessageBox with a Yes and No button and a timeout of 5 seconds 
  iFlags  := MB_YESNO or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION; 

  iResult := MessageBoxTimeout( 
    Application.Handle, 
    'Test a timeout of 5 seconds.', 
    'MessageBoxTimeout Test', iFlags, 0, 5000); 

  // iResult = MB_TIMEDOUT if no buttons clicked, otherwise 
  // iResult will return the value of the button clicked 

  case iResult of 
  IDYES:  // Pressed Yes button 
    ShowMessage('Yes'); 

  IDNO:  // Pressed the No button 
    ShowMessage('No'); 

  MB_TIMEDOUT: // MessageBox timed out 
    ShowMessage('TimedOut'); 
  end; 
end;

Using NtDeleteFile from Delphi 刪除 檔案

Using NtDeleteFile from Delphi

The required structures (not defined in Delphi) are UNICODE_STRING and OBJECT_ATTRIBUTES.
function NtDeleteFile(ObjectAttributes:POBJECT_ATTRIBUTES):DWORD; stdcall; external 'ntdll.dll'; RtlDosPathNameToNtPathName_U

完整 抓取 記憶體 驗證 鏡像

memory text Dynamic Section Image Verification


LoadLibrary GetDllDirectory  GetProcAddress FreeLibrary GetModuleHandle DllMain MapViewOfFile


Dynamic TEXT Section Image Verification - CodeProject
Dynamic Code Checksum Generator - CiteSeerX
Dynamic Section - Assembly Language Programmer's Guide

memory Dynamic  process Section Image list api monitor

delphi VCL Web-Frameworks RIA

http://delphi625.rssing.com/chan-54815889/all_p14.html

delphi VCL Web-Frameworks

delphi Web ria

Rich Internet Application Frameworks


VCL Web-Frameworks
RealThinClient
IntraWeb
AthTek WebXone
UniGui
Raudus
xxm
DelphiOnRails
WebHub VCL
Kitto
p2js
extPascal
DelphiMVCFramework
Pas2Php

delphi vector graphic

Graphics32
delphi gr32
Vectorial Polygon Rasterizer (VPR)
delphi Simple Vector Library
delphi Clipper open source library
http://www.felix-colibri.com/papers/graphic/delphi_3d_designer/delphi_3d_designer.html
delphi OpenWire
PascalSCADA
delphi SCADA Graphics opc

efg2 grphic
http://www.efg2.com/Lab/Library/Delphi/Graphics/Algorithms.htm
http://www.efg2.com/Lab/Library/Delphi/Graphics/index.html
http://www.efg2.com/Lab/Library/Delphi/Graphics/Math.htm
http://www.efg2.com/Lab/Library/Delphi/Graphics/ComponentsAndPrograms.htm
SweetDrawingEngine www.codeaccelerate.com

delphi-jedi graphic

 torry Components Graphics Packs

LazRGBGraphics http://wiki.freepascal.org/LazRGBGraphics
BGRABitmap http://wiki.freepascal.org/BGRABitmap
AggPas http://www.crossgl.com/aggpas/
fpVectorial http://wiki.freepascal.org/fpvectorial
Andorra 2D http://andorra.sourceforge.net/
Graphics32 http://graphics32.org
 http://wiki.freepascal.org/LazPaint
BGRABitmap. LazRGBGraphics http://wiki.freepascal.org/Lazarus_Image_Editor

Delphi SVG

https://www.awaresystems.be/techtalks.html

delphi 我在哪裡? EIP EBP ESP 暫存器

delphi assembly Instruction Pointer

delphi assembly Instruction Pointer eip rtti

How to Get the EIP( Instruction Pointer Value ) in GCC Assembler?

https://www.codeproject.com/questions/641737/how-to-get-the-eip-instruction-pointer-value-in-gc


delphi procedure rtti TRttiMethod


Non-Obvious Debugging Techniques

Delphi midas code generator

Delphi Multi-Tier Code Generator

datasetprovider broker
datasetprovider Remote Data Broker

http://www.torry.net/tools/code/codegen/DBAppCodeGenerator09.zip http://www.torry.net/tools/code/codegen/IniCodeGenerator10.zip http://www.torry.net/localuploads/StoredProcedureMaker.zip

Advanced DataSnap Features
http://www.delphisources.ru/pages/faq/master-delphi-7/content/LiB0171.html

Overview General Comments About Delphi’s Data Access Technologies http://slideplayer.com/slide/6068299/

delphi ru скриншот ServerSocket MIDAS 

Введение в Microsoft RPC

delphi float double 浮點數

https://github.com/Tominator2/HEXtoIEEE-754

http://www.davdata.nl/math/floatingpoint.html

http://www.efg2.com/Lab/Mathematics/NaN.htm
http://www.efg2.com/Lab/Library/Delphi/MathInfo/index.html

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/About_Floating-Point_Arithmetic

http://rvelthuis.de/articles/articles-floats.html


IEEE standard for floating-point 754 1985 2008  

https://ieeexplore.ieee.org/document/4610935/definitions?ctx=definitions

https://en.wikipedia.org/wiki/Double-precision_floating-point_format

var
  f:Single;
  pb:  pbyte;
  pba:array[1..sizeof(Single)] of byte;
  ttb4,ttb3,ttb2, ttb1 : Byte;
  i : Integer;
  s:string;
  Lines: TStrings;
begin

  s:='';

  f := string.ToSingle(Edit1.Text);
  pb := addr(f);
  for I := 1 to SizeOf(f) do
  begin
    pba[I]:= pb^;
    inc(pb);
  end;
  I:=1;

  ttb4:= pba[SizeOf(f)];
  ttb3:= pba[SizeOf(f)-1];
  ttb2:= pba[SizeOf(f)-2];
  ttb1:= pba[SizeOf(f)-3];

  s:= s +'Sign:'+ byte(ttb4 shr 7).ToHexString+',';
  s:= s +',Exp:'+ byte((ttb4 shl 1) or (ttb3 shr 7)).ToHexString;
  s:= s+',Frac:'+ byte((ttb3 shl 1 )shr 1).ToHexString + byte(ttb2).ToHexString+ byte(ttb1).ToHexString;

  s:= s +',Full:';
  for I := SizeOf(f) downto 1 do
  begin
    s:= s +','+ pba[I].ToHexString;
  end;
  I:=1;

  //32 bits (1 for the sign 8 for the exponent, and 23 for the mantissa).

  Memo1.Lines.Add(FormatFloat('0000000.0000000',f));
  Memo1.Lines.Add(s);
  Memo1.Lines.Add(
    '[Sign:'+ f.Sign.ToString+
    '][Exp:'+ word(f.Exp).ToHexString+
    '][Frac:'+ f.Frac.ToHexString
    +']');
  Memo1.Lines.Add('Exponent:'+ f.Exponent.ToHexString);
  Memo1.Lines.Add('Mantissa:'+ f.Mantissa.ToHexString);

從 window 找到 application path PID

 Enumerating All Processes
https://msdn.microsoft.com/en-us/library/windows/desktop/ms682623.aspx
Snapshot Process 32 First Process Next Enum Processes
Kernel32 CreateToolhelp32Snapshot
CreateToolhelp32Snapshot
Process32First 找到第一個
Process32Next 下一個
EnumProcesses
QueryFullProcessImageName  
https://msdn.microsoft.com/zh-tw/library/windows/desktop/ms684919(v=vs.85).aspx

EnumWindows() 列舉出所有視窗
FindWindow() FindWindowEx() 找到窗體
GetWindowThreadProcessId() 找 process ID 擁有這 窗
OpenProcess() 得到 HANDLE
GetModuleFileNameEx()
GetProcessImageFileName()
QueryFullProcessImageName()
GetWindowModuleFileName()


EnumWindows FindWindow FindWindowEx GetWindowThreadProcessId OpenProcess GetModuleFileName GetProcessImageFileName QueryFullProcessImageName GetWindowModuleFileName

如何創建 單一 唯一執行 執行檔 傳 參數 CreateParams paramstr

How to run a single instance of an application
http://delphidabbler.com/articles?article=13
delphi Process Param Create Params paramstr
如何創建 單一 唯一執行 執行檔 傳 參數

本篇教你 傳遞 參數 給 程式 ， 可以 確認 運作 或是 重複的 執行  或是 結束他

首先動作是

傳遞 個  window message WM_COPYDATA

運作如

先找  window 存在?
喚醒她
傳送window message
決定 是否結束他

你可以用 findwindows 找到自己 預留 的接收端

SwitchToPrevInst 你可以 前後找

可以對 其他 window 做 傳送 SendMessage( Wdw, WM_COPYDATA, 0, LPARAM(@CopyData)

Data 必須是 動態產生的  alloc ...

http://delphidabbler.com/articles?article=13&part=4

後面有下載

op SWIG c convert 2 pascal / delphi

http://www.swig.org/exec.html

swig 是個  編譯器的介面 讓你 從 c/c++ 轉成 perl python ruby tcl ...java pascal

http://wiki.freepascal.org/C_to_Pascal

https://en.wikipedia.org/wiki/Comparison_of_Pascal_and_C

http://c2pas.sourceforge.net

https://community.embarcadero.com/blogs/entry/c-to-delphi-converter-tool-can-quickly-and-easily-help-you-convert-standard-c-code-to-delphi

https://www.cadkas.com/ec2delphi.php

Developer Tools Code Code Convertors https://torry.net/pages.php?id=1518

https://github.com/WouterVanNifterick/C-To-Delphi

http://rvelthuis.de/articles/articles-convert.html

新建 子 處理 並且 把輸出 輸入 轉向

https://msdn.microsoft.com/en-us/library/windows/desktop/ms682499(v=vs.85).aspx

Creating a Child Process with Redirected Input and Output

ProcessStartInfo Redirect screen graphic mode

Diagnostics StandardOutput ReadToEnd

ShellExecute ShellExecuteEx CreateProcess CreateProcessAsUser …

https://www.experts-exchange.com/articles/1595/Execute-a-Program-with-C.html

capture PeekNamedPipe

Process OutputDataReceived

delphi 把個 物件 元件 object component 存檔 save file

http://www.swissdelphicenter.ch/en/showcode.php?id=1626
https://stackoverflow.com/questions/698536/saving-a-tobject-to-a-file
https://torry.net/pages.php?id=96
http://jedqc.blogspot.tw/2006/02/d2006-what-on-earth-are-these-explicit.html
http://www.jed-software.com/files/ExplicitProps.zip
delphi runtime design system save
http://bitwisemag.co.uk/2/Add-A-Runtime-Form-Designer-To.html
delphi component stream binary save
http://www.delphisources.ru/pages/faq/master-delphi-7/content/LiB0045.html
https://theroadtodelphi.com/tag/rtti/
delphi property procedure save file Method
如何欺騙 Delphi 將一般獨立 procedure 當成 TxxEvent of Class;
Using resource files with Delphi
delphi component stream serialization
https://www.thoughtco.com/function-or-procedure-as-parameter-1057606

...save a TImagelist with all its images to a file?

// For writing components use WriteComponentResFile(path + source filename , component name source)

WriteComponentResFile('C:\imagelist1.bin',imagelist1);

// For reading the data back to a component:
// component := ReadComponentResFile(path + source filename , component name traget)imagelist1 := ReadComponentResFile('c:\imagelist1.bin', nil) as TImagelist;

http://www.delphipages.com/forum/showthread.php?t=30102

function ComponentToString(Component: TComponent): string;

var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;

end;
finally
BinStream.Free
end;
end;

delphi ObjectBinaryToText ObjectTextToBinary


tubbysong 元件

gps 時間 校正

gps utc conversion arduino

http://www.instructables.com/id/GPS-time-UTC-to-local-time-conversion-using-Arduin/

http://www.instructables.com/id/GPS-time-UTC-to-local-time-conversion-using-Arduin/


網路時間協定- 維基百科，自由的百科全書 - Wikipedia


gps time synchronize International GNSS

synchronize Time dhcp

delphi 正則 邏輯搜尋

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Regular_Expressions

https://www.regular-expressions.info/

Regular delphi

embarcadero Regular delphi

http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/TRegExReplace_(Delphi)

lcd liquid crystal display 偏光片 Polarizer

lcd liquid crystal display 偏光片 Polarizer

polarizers magnet Faraday 偏光片 法拉第 效應

偏光片 受到 強烈磁性 的 變化 而 改變 偏光的角度

https://www.youtube.com/channel/UCivA7_KLKWo43tFcCkFvydw

穩定 壓縮 複合 木材 刀柄 電化 塑化

stabilized compressed Hybrid Resin Wood

訊息鑑別碼

Message authentication code

訊息鑑別碼- 維基百科，自由的百科全書 - Wikipedia

金鑰雜湊訊息鑑別碼- 維基百科，自由的百科全書 - Wikipedia

https://en.wikipedia.org/wiki/Category:Message_authentication_codes


3SJJ0808金融数据密码机技术白皮书_百度文库

SJL22金融数据密码机技术白皮书V8.0h_图文_百度文库

SJJ1212 Financial HSM Encryption of Data DES 3DES AES SM4

中国人民银行  pboc

 

https://www.ibm.com/support/knowledgecenter/en/linuxonibm/com.ibm.linux.z.wskc.doc/wskc_c_macclc.html
A keyed-hash MAC (HMAC) based message authentication can be used by the HMAC Generate and HMAC Verify verbs.