關於PChar應用

1. 功能實現，尚有關於Delphi裏函數參數B： PChar 與 var B： PChar 不同的疑問，暫放。
3. VC--------- Dll
7. // CharDll.cpp : 定義 DLL 應用程序的導出函數。
8. //
10. #include "stdafx.h"
11. #include "CharDll.h"
14. // 這是導出變量的一個示例
15. CHARDLL_API int nCharDll=0;
17. // 這是導出函數的一個示例。
18. CHARDLL_API int fnCharDll(void)
19. {
20.  return 42;
21. }
23. // 這是已導出類的構造函數。
24. // 有關類定義的信息，請參閱 CharDll.h
25. CCharDll::CCharDll()
26. {
27.  return;
28. }
30. CHARDLL_API int FnTest1(char *A, char *B)
31. {
32.  strcpy(B, A);
33.  strcat(B, "PYG");
34.  return strlen(B);
35. }
37. CHARDLL_API int FnTest2(char *A, char **B)
38. {
39.  strcpy(*B, A);
40.  strcat(*B, "PYG");
41.  return strlen(*B);
42. }
44. CHARDLL_API int FnTest3(char *A, char *&B)
45. {
46.  strcpy(B, A);
47.  strcat(B, "PYG");
48.  return strlen(B);
49. }
50.  ---------------------------------------調用及用Delphi寫的相應函數--------------------------------------
51. unit Unit1;
53. interface
55. uses
56.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
57.   Dialogs, StdCtrls;
59. type
60.   PPChar = ^PChar;
62. type
63.   TForm1 = class(TForm)
64.     Edit1: TEdit;
65.     Edit2: TEdit;
66.     TestFn1: TButton;
67.     Label1: TLabel;
68.     Label2: TLabel;
69.     TestFn2: TButton;
70.     TestFn3: TButton;
71.     Button4: TButton;
72.     Button5: TButton;
73.     procedure TestFn1Click(Sender: TObject);
74.     procedure TestFn2Click(Sender: TObject);
75.     procedure TestFn3Click(Sender: TObject);
76.     procedure Button4Click(Sender: TObject);
77.     procedure Button5Click(Sender: TObject);
78.   private
79.     { Private declarations }
80.   public
81.     { Public declarations }
82.     function DelTest1(A: PChar; B: PChar): Integer;
83.     function DelTest2(A: PChar; B: PPChar): Integer;    
84.   end;
86. var
87.   Form1: TForm1;
88.   function FnTest1(A: PChar; B: PChar): Integer; cdecl; external 'CharDll.dll';
89.   function FnTest2(A: PChar; B: PChar): Integer; cdecl; external 'CharDll.dll';
90.   function FnTest3(A: PChar; B: PChar): Integer; cdecl; external 'CharDll.dll';
93. implementation
95. {$R *.dfm}
97. procedure TForm1.TestFn1Click(Sender: TObject);
98. var
99.   pA, pB: PChar;
100.   iB, i: Integer;
101. begin
102.   pA := PChar(Edit1.Text);
103.   GetMem(pB, 100);
104.   iB := FnTest1(pA, pB);
105.   Edit2.Text := StrPas(pB);
106.   FreeMem(pB);
107. end;
109. procedure TForm1.TestFn2Click(Sender: TObject);
110. var
111.   pA, pB: PChar;
112.   iB, i: Integer;
113. begin
114.   pA := PChar(Edit1.Text);
115.   GetMem(pB, 100);
116.   iB := FnTest2(pA, @pB);
117.   Edit2.Text := StrPas(pB);
118.   FreeMem(pB);
119. end;
121. procedure TForm1.TestFn3Click(Sender: TObject);
122. var
123.   pA, pB: PChar;
124.   iB, i: Integer;
125. begin
126.   pA := PChar(Edit1.Text);
127.   GetMem(pB, 100);
128.   iB := FnTest3(pA, @pB);
129.   Edit2.Text := StrPas(pB);
130.   FreeMem(pB); 
131. end;
133. function TForm1.DelTest1(A, B: PChar): Integer;
134. var
135.   iLen: Integer;
136. begin
137.   iLen := Length(A) + 3;
138.   FillChar(B^, iLen, #0);
139.   StrCopy(B, A);
140.   StrCat(B, 'PG');   
141. end;
143. procedure TForm1.Button4Click(Sender: TObject);
144. var
145.   pA, pB: PChar;
146.   iB: Integer;
147. begin
148.   pA := PChar(Edit1.Text);
149.   GetMem(pB, StrLen(pA)+3);
150.   DelTest1(pA, pB);
151.   Edit2.Text := StrPas(pB);
152.   FreeMem(pB);
153. end;
155. function TForm1.DelTest2(A: PChar; B: PPChar): Integer;
156. var
157.   iLen: Integer;
158. begin
159.   iLen := Length(A) + 3;
160.   FillChar(PChar(B^)^, iLen, #0);
161.   StrCopy(PChar(B^), A);
162.   StrCat(PChar(B^), 'PG');
163. end;
165. procedure TForm1.Button5Click(Sender: TObject);
166. var
167.   pA, pB: PChar;
168.   pC: PPChar;
169.   iB: Integer;
170. begin
171.   pA := PChar(Edit1.Text);
172.   pC := @pB;
173.   GetMem(pB, StrLen(pA)+3);
174.   DelTest2(pA, pC);
175.   Edit2.Text := StrPas(pB);
176.   FreeMem(pB);
177.   {相當於上邊的代碼
178.   pA := PChar(Edit1.Text);
179.   GetMem(pC, 100);
180.   GetMem(pC^, StrLen(pA)+3);
181.   DelTest2(pA, pC);
182.   Edit2.Text := StrPas(pC^);
183.   FreeMem(pC^);
184.   FreeMem(pC);}
185. end;
187. end.