使用Delphi .NET开发-aimingoo

Transcription

1 Delphi.NET Using Delphi for Microsoft.NET Framework Development

2

3 Delphi.NET Delphi.NET Delphi.NET Hello, World! Delphi.NET

4 MS Internet Explorer 6.0 SP1 MS.NET Framework v1.1 MS.NET Framework SDK v1.1 MS VJ# v1.1 Redistributable MS Internet Infomation Server (IIS) MS Cassini Web Server

5

6 HTML (Tidy) Web Services (Team) UML & MDA Internet DBExperss (ITE)

7

8 Hello, World!.NET Hello, World!

9 //.Net Hello, World program Hello; {$APPTYPE CONSOLE} var Str : String = 'Hello, World!'; begin Writeln(Str); Readln; end.

10 Delphi.NET.NET SDK DbgCLR.EXE Octane

11

12

13

14 Console Application Windows Forms Application VCL Forms Application Data Providers Database Application ASP.NET Web Application ASP.NET Web Services Application Web Control Library Class Component & Package

15 Windows Forms Application Forms.NET Windows Forms Web Services Client ADO.NET Windows Forms App.

16 VCL Forms Application Delphi VCL.NET FCL Borland Delphi.NET.NET Delphi for.net

17 Data Providers Database Application BDP Windows Forms App. ASP.NET App. Web Services BDP.NET

18 BDP.NET

19 ASP.NET Web Application HTML Server Windows Forms ASP.NET Web App. Windows Forms ASP.NET Web App.

20 Windows Forms ASP.NET Web App.

21 ASP.NET Web Services Application Web Servers App. Client COM ASP.NET Web Services.

22 ASP.NET Application VCL.NET Application FCL.NET Application Borland Data Providers ASP.NET Web Services Web Services Delphi.NET

23 Client Internet Web Servers Client Web Servers Delphi.NET Client Delphi.NET Client

24 Class Component & Package Class (Windows Forms & ASP.NET User Control) Package (Assembly) (Package)

25

26 Delphi.NET Win32 (Managed) (Unmanaged) DLL InterOp

27 (Managed) (Unmanaged) CLR DLL COM ( )

28 DLL program CurrentDir; {$APPTYPE CONSOLE} uses System.Text, // StringBuilder System.Runtime.InteropServices; // DllImport() [DllImport('kernel32.dll', CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetCurrentDirectory')] function GetCurrentDirectory(nBufferLength: LongWord; lpbuffer: StringBuilder): LongWord; external; var Str : StringBuilder; begin Str := StringBuilder.Create(256); Str.Length := GetCurrentDirectory(256, Str); Writeln(Str.ToString); end.

29 COM COM Delphi RCW CCW CLR COM InterOp RCW CCW COM

30 InterOp (.NET Microsoft Web Browser ) CLR Delphi

31

32 GetMem() FreeMem() ReallocMem() PChar Pointer Object Type & Class Type Types CTS VCL FCL RTL.NET Pascal

33 GetMem() FreeMem() & ReallocMem() CLR Delphi.NET Memory Manager Dynamic Array New() & Dispose()

34 PChar Pointer ( API PChar String StringBuilder PChar IntPtr (TBytes) API Marshal class GC(garbage collector) Marshal class

35 type TAnimateWindowProc = function(...): BOOL; stdcall; var AnimateWindowProc: TAnimateWindowProc = nil; := GetProcAddress(aHandle, 'AnimateWindow'); if AnimateWindowProc <> nil then AnimateWindowProc(Handle, 100, AW_BLEND or AW_SLIDE); (Unsafe Procedure) [DllImport('user32.dll',..., EntryPoint = 'AnimateWindow')] function AnimateWindow(... ): BOOL; external; var UserHandle: HMODULE; CanAnimate: Boolean; begin CanAnimate := GetProcAddress(UserHandle, 'AnimateWindow') <> nil if CanAnimate then AnimateWindow(Handle, 100, AW_BLEND or AW_SLIDE);

36 Turbo Pascal Delphi Object Type & Class Type (Object Type) TMyObject = Object... TP5.5 Delphi 7.0 KOL (Class Type) TMyClass = Class... Delphi (Interface) IInterface = interface...

37 Delphi.NET Object Type & Class Type Turbo Pascal (Object Type) Delphi.NET CLR TObject (Class Type) TObject = System.Object; TClass = class of TObject; TMyClass = TClass... System.ValueType ( ) Interface

38 Types CTS

39 VCL FCL TObject = System.Object Exception = System.Exception TComponent = System.ComponentModel.Component

40 CLR Interface TSomething = class(tinterfacedobject, IDescendant, IDesc) procedure P1; procedure P2;... end;

41 RTL Borland.Delphi.System Borland.VCL RTL = Data Type Support(Base & Interface & Object) CTS Language.NET Pascal Thread System.Threading, STA/MTA Thread Model MemMgr New() & Dispose() Exception System.Exception Other OS Resource System.xxxxx Debug Support System.Diagnostics

42 .NET Pascal $(BDS)\Source $(BDS)\Help Danny Thorpe

43 Strings & Arrays Records Classes & Interfaces Exceptions Properties & Events Sets Text files Local Procedures Variants Components Streams New, Dispose Readln, Writeln Format Component Streaming Random Virtual Constructors

44 @, Addr(), Absolute directive Real48 six-byte floats File of <type> GetMem, FreeMem, ReallocMem Use arrays or New() & Dispose() ExitProcs Old Object syntax (type foo = object) TVarData, Variant internals

45 CLR Delphi syntax for: Virtual constructors Named constructors Virtual calls from class methods Unsafe types PChars Variant records

46 TObject.ValueType (record type) (Boxing) TObject(12).ToString()

47 ( ) (Multicast Events) Delphi Java C++ Delphi.NET ( ) Y Y Y Y Y Y(CLR) Y Y Y Y(CLR) Y

48