Get(anyPointer) Verständnisfrage

[Nintendo]

Hallo,

ich experimentiere grad mit der Übergabe von Zeigern anstele von VAR Parametern und frage mich, wie ich das folgende erreichen kann:

Delphi-Quellcode:

procedure GetThis(pp: Pointer);
begin
  pp := value;
end;

Wenn ich die Prozedur selber definieren kann, könnte ich auch das hier schreiben:

Delphi-Quellcode:

procedure GetThis(var pp: Pointer);
begin
  pp := value;
end;

Wenn ich aber ein Interface nutze, sieht die Sache schon anders aus.

Wie erreiche ich dann, das auch die obere Funktion den Wert übergibt.

Gibt es da vielleicht eine Compiler-Option? Wenn ja, welche?

Hier ist noch ein Testbeispiel zur Verdeutlichung, was ich meine:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    lblShowString: TLabel;
    lblShowPChar: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FPChar: PChar;
    FString: String;
  public
    { Public-Deklarationen }
    procedure GetPChar(this: PChar);
    procedure GetString(this: String);
    procedure GetStringByReference(var this: String);
    procedure GetPCharByReference(var this: PChar);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var PCh: PChar; Str: String;
begin
  FString := Edit1.Text;
  FPChar := PChar(FString);
  GetStringByReference(Str);
  lblShowString.Caption := Str;
  GetPCharByReference(PCh);
  lblShowPChar.Caption := StrPas(PCh);
end;

procedure TForm1.GetPChar(this: PChar);
begin
  this := FPChar;
end;

procedure TForm1.GetPCharByReference(var this: PChar);
begin
  this := FPChar;
end;

procedure TForm1.GetString(this: String);
begin
  this := FString;
end;

procedure TForm1.GetStringByReference(var this: String);
begin
  this := FString;
end;

end.

Wenn ich hier GetStringByReference und GetPCharByReference aufrufe, dann klappt die Parameterübergabe.

Wenn ich jedoch die anderen beiden Prozeduren verwende, dann gibt

GetString() gar nichts aus, Wert bleibt komplett unverändert, wie ich das auch bei CallByValue erwarte.

GetPChar() gibt Datenmüll aus.

Wie kann ich nun Pointer in der Form wie in GetPChar() erhalten?

Wie gesagt, wenn ich ein Interface verwenden will/muss, dann kann ich die Deklaration nicht für mich passend ändern, das geht nur bei komplett eigener Defintion.

[Neutral General]

Hallo,

Deine Erklärung ist etwas verwirrend aber folgendes funktioniert gleich:

Delphi-Quellcode:

procedure Irgendwas1(var S: String);
begin
  S := FString;
end;

procedure Irgendwas2(S: PString); // oder statt PString einfach ^String
begin
  S^ := FString;
end;

procedure TForm1.Button1Click(Sender: TObject);
var test: String;
begin
  Irgendwas1(test);
  Caption := test;
  Irgendwas2(@test);
  Caption := test;
end;

[uligerhardt]

Zitat von Neutral General:

Deine Erklärung ist etwas verwirrend

Ja, etwas.

Zitat von Neutral General:

procedure Irgendwas2(S: PString); // oder statt PString einfach ^String

Bei S: ^String nörgelt der Compiler. Man braucht schon einen benannten Typen.

[DeddyH]

Und man sollte IIRC auch sicherstellen, dass der reservierte Speicherplatz, auf den der übergebene Pointer zeigt, ausreichend dimensioniert wurde, bevor man hineinschreibt.

[p80286]

Zitat von Nintendo:

Wie kann ich nun Pointer in der Form wie in GetPChar() erhalten?

Was bitte willst Du (erreichen)?

Delphi-Quellcode:

procedure irgendwas(wert:integer);
begin wert:=66; end;

...
wert:=9;
irgendwas(wert);
// Hier ist wert immer noch 9 !!!!!

Ohne var werden keine Daten/werte aus der procedure zurück gegeben!
Ausnahme:

Delphi-Quellcode:

procedure irgendwas(pw:pinteger);
begin pw^:=100; end;

...
wert:=45;
irgendwas(@(wert);
// ab hier ist wert=100;

weil Du eine Adresse übergeben hast und an diese Adresse Daten geschrieben wurden. Die Adresse ist daran aber nicht direkt beteiligt.

Gruß
K-H

[Nintendo]

Zitat von p80286:

Zitat von Nintendo:

Wie kann ich nun Pointer in der Form wie in GetPChar() erhalten?

Was bitte willst Du (erreichen)?

Delphi-Quellcode:

procedure irgendwas(wert:integer);
begin wert:=66; end;

...
wert:=9;
irgendwas(wert);
// Hier ist wert immer noch 9 !!!!!

Ohne var werden keine Daten/werte aus der procedure zurück gegeben!
Ausnahme:

Delphi-Quellcode:

procedure irgendwas(pw:pinteger);
begin pw^:=100; end;

...
wert:=45;
irgendwas(@(wert);
// ab hier ist wert=100;

weil Du eine Adresse übergeben hast und an diese Adresse Daten geschrieben wurden. Die Adresse ist daran aber nicht direkt beteiligt.

Gruß
K-H

Bis hierher ist mir die Sache klar.

Ohne var werden keine Daten/werte aus der procedure zurück gegeben!

Dann würde es umgekehrt gar nicht funktionieren, nämlich so hier:

procedure irgendwas(aWert: PChar);
begin
aWert := PChar(AnyString);
end;

Dieses Ergebnis, das

igendwas(@Wert) dann nicht funktioniert, erhalte ich auch.


Nun aber habe ich in den ToolsAPI die schon geannte Funktion GetText(Position: Integer, Buffer: PChar; ...

gefunden und dort scheint es anders zu sein. Zumindest geh ich davon aus, das Getxxx einen Wert holt, wie

GetText(1, @wert, 15)

mit

... GetText(Pos: Integer; Buffer: PChar; count: Integer)
begin
Buffer := PChar(AnyString);
end;

Wenn ich da falsch liege, müsste dann diese Funktion nicht Putxxx() doer Setxxx() heißen?

Dieser Punkt ist es, der mich verwirrt. Oder es gint tatsächlich einen Weg, so einen Wert an Buffer zzu übergeben, nur wie, wenn meine Annahme richtig ist.

Wie kommuniziert Delphi unter Verwendung dieser Funktion GetText()?

[p80286]

Ich denke Du solltest Dir noch einmal genau überlegen was du (fragen) willst.
Aus den verschiedenen Informationshäppchen (toolsAPI Gettext) habe ich dies herausdestilliert

Delphi-Quellcode:

 IOTAEditReader = interface(IUnknown)
    ['{26EB0E4F-F97B-11D1-AB27-00C04FB16FB3}']
    function GetText(Position: Longint; Buffer: PChar; Count: Longint): Longint;
  end;

Wenn es hierum geht, was daran ist unverständlich?

Was den Namen einer Funktion/Prozedur angeht, Du kannst ihr Namen geben wie es Dir einfällt("Pukkelmon","hh_136gtz_99","Bundesinnenmi nister"). Es entspricht aber gutem Stil, wenn der Name auch die Funktionalität wiederspiegelt.

Gruß
K-H

[Nintendo]

Zitat von p80286:

Ich denke Du solltest Dir noch einmal genau überlegen was du (fragen) willst.
Aus den verschiedenen Informationshäppchen (toolsAPI Gettext) habe ich dies herausdestilliert

Delphi-Quellcode:

 IOTAEditReader = interface(IUnknown)
    ['{26EB0E4F-F97B-11D1-AB27-00C04FB16FB3}']
    function GetText(Position: Longint; Buffer: PChar; Count: Longint): Longint;
  end;

Wenn es hierum geht, was daran ist unverständlich?

Heißt das, das diese Funktion trotz ihres Namens einen Text in der Variablen Buffer erwartet, den die Fuktion dann an die an das Interface angeschlossene Software übergibt?

Andersherum klappt es nämlich nicht. Ich kann also nicht, wie ich bei dem Namen GET erwartet hätte einen Text aus der angeschlossenen Software über die Variable Buffer auslesen.

Zitat von p80286:

Was den Namen einer Funktion/Prozedur angeht, Du kannst ihr Namen geben wie es Dir einfällt("Pukkelmon","hh_136gtz_99","Bundesinnenmi nister").

Bei dieser angenommenen Namensgebung würde ich allerdings erwarten, das ich von der Routine 3 Werte erhalte:

- Pukkelmon, das Computespiel (oder eine Kinderserie im Fernsehen?)
- eine Softwarebibliothek mit dem Namen "hh_136gtz_99"
- die Webseite des Bundesinnenministers

Da hier kein Routinenname angegeben ist, könnte mir letzterer Parameter natürlich auch den Namen des aktuell amtierenden Bundesinnenministers anzeigen oder mich zur Webseite des Bundesinnenministeriums leiten.

Zitat von p80286:

Es entspricht aber gutem Stil, wenn der Name auch die Funktionalität wiederspiegelt.

Gruß
K-H

Konsens!


Zurück zu meiner Frage: Leider weiß ich dummerweise nicht,wie ich hier richtig fragen soll. Ich kenne nur mein Problem und suche dafür eine Lösung.

Diese kann auch darin bestehen, das der Name der fraglichen Funktion, ja es geht um die obige Funktion, das dieser Name falsch gewählt wurde von Borland/Codegaer/Embarcadero, da diese Funktion nicht, wie ich angenommen habe, einen Text aus einem an das OTA angeschlossene IDE Plugin ausliest, sondern einen Text, der an die Variable Buffer übergeben und dann der Funktion übergeben wird, an das Plugin sendet.

Also, in welcher Richtung erfolgt hier die Übertragung des PChar-Strings?

Sendet diese Funktion den Text, den ich in Buffer übergebe oder liest die Funktion einen Text, den sie dann an Buffer übergibt, damit ich ihn verwenden kann?

[DeddyH]

Ich kenne die ToolsAPI zwar nicht auswendig, aber anhand der Parameter ist zu vermuten, dass das wie in Unmengen Win32-API-Funktionen auch gedacht ist: man reserviert Speicher und übergibt dessen Adresse dann samt der Angabe der Datengröße an die Routine, welche ihn dann mit Daten befüllt.

[edit] Beispielhaft sei hier mal GetWindowsDirectory genannt. [/edit]

[Furtbichler]

Zitat von Nintendo:

Wie gesagt, wenn ich ein Interface verwenden will/muss, dann kann ich die Deklaration nicht für mich passend ändern, das geht nur bei komplett eigener Defintion.

Ich frage mich gerade, was Du erreichen willst. Wenn die Interfacemethode ein Call-By-Value definiert, dann hat sich der Autor schon etwas dabei gedacht. Damit musst Du leben. Dazu sind Interfaces da. Der Autor gibt die Verwendung vor.