January 9, 2009 05:51pm pst

1. ciuly 8,000
2. DropZone 5,000
3. SteveBay 3,500
4. kretzsch... 2,000
4. Geert_Gr... 2,000
6. jgbustos 1,000
6. rfwoolf 1,000
6. AndrewW5 1,000
9. Panchux 600
10. Zyloch 500
11. cdbeste 400

1. ciuly 137,448
2. ziolko 114,368
3. Geert_Gr... 90,516
4. SteveBay 71,264
5. developm... 59,497
6. TheRealL... 43,022
7. MerijnB 41,093
8. rfwoolf 27,425
9. atul_par... 18,750
10. kretzsch... 17,300
11. Johnjces 17,240
12. dinilud 13,800
13. rllibby 12,377
14. gtokas 12,200
15. jgbustos 11,100
16. CodedK 10,250
17. ahalya 10,020
18. EddieShip... 9,125
19. ThievingSix 8,710
20. GRFrones 8,150
21. sas13 8,000
22. mikelittlew... 7,787
23. DropZone 7,000
24. bernani 6,936
25. mokule 6,550

06.14.2008 at 09:35PM PDT, ID: 23485800

	[x] Attachment Details

Simple Example of Pchar in Delphi DLL

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Zones:

Delphi Programming Language, Miscellaneous Programming, Delphi Programming

Tags:

Delphi 2006

Hi,
I am trying to understand another area of Delphi, that of DLL's and Pointers. In the Documentation that i have read to date, it says that when passing strings to and from a function contained in an extermal dll, that you either use strings of the shortstring type, or use a pchar as a pointer.

I seem to have some problem with Syntax however, as the following code gives me an error message when i try and compile it.

[E2010 Incompatible types: 'string' and 'PAnsiChar

what am i doing wrong ?
'

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

           
           
             library test;
 
{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }
 
uses
  SysUtils,
  Classes,
  Registry,
  Windows;
 
{$R *.res}
 
function getMyDocumentsFolder():Pchar;stdcall;
var
  reg: TRegistry;
  MyDocumentsFolder: Pointer;
begin
  reg := nil;
  try
    reg := reg.Create;
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
    MyDocumentsFolder := reg.ReadString('Personal');
  finally
    reg.free;
  end;
end;
 
exports
 GetMyDocumentsFolder;
 
begin
 
end.

           
         

#	Title
1	PChar
2	PChar to String
3	PChar
4	String and pChar
5	PChar
6	Delphi 2007 covert a string to pansi…