Delphi - API-Calls mit Strings?

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/delphi_api-calls_mit_strings_55310/page_1 - zur Vollversion wechseln!

Bimminger schrieb am 15.11.2002 um 17:18

Ich will den GetPrivateProfileString(...) verwenden [plz keine comments wegen ich soll registry verwenden und so... hat alles seine gründe!!!!)

jedenfalls bringt mir der code genau beim API-Aufruf einen fehler.... und i hab ka ahnung was da falsch is... (is mei 1. delphi tag... und i brauch DRINGENDST a antwort)

unit Unit_Settings;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB;

type
TSettings = class(TDataModule)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
function GetSetting (Bezeichnung : string) : string;
end;

var
Settings: TSettings;
INIFile : PChar = '..\dat\settings.ini';

lpAppName : pansichar= 'P093';
lpKeyName : pansichar= 'SADFGASDGASGAGAGDGDFGDFG';
lpDefault : pansichar= 'SADFGASDGASGAGAGDGDFGDFG';
lpReturnedString : pansichar= 'SADFGASDGASGAGAGDGDFGDFG';

implementation

{$R *.DFM}

function TSettings.GetSetting (Bezeichnung : string) : string;
var
i : integer;
begin
lpAppName := 'P093';
//lpDefault := '';
//lpReturnedString := '';

lpKeyName:=PAnsiChar(Bezeichnung);

GetPrivateProfileString(
lpAppName, // points to section name
lpKeyName, // points to key name
lpDefault, // points to default string
lpReturnedString, // points to destination buffer
10, // size of destination buffer
INIFile // points to initialization filename
);

result := lpReturnedString;
end;
end.

Bimminger schrieb am 15.11.2002 um 17:34

ok solved now... muss erst array of char anlegen......