Delphi und autoitx3.dll

[wadimwadim]

sory für den doppelpost.

hier habe ich etwas gefunden aber ich weiss nicht wie ich das machen soll. was soll man davor aufrufen, damit das funktionieren kann

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: Array[ 0..2000 ] of Char;
Begin
Au3_ControlGetText('Untitled','','Edit1','Buffer',2000); // autoitbefehl
end;

quelle:
http://www.autoitscript.com/forum/in...howtopic=62220

[Alter Mann]

Hi,

zwei postings später in dem Link lesen und die deutsche Hilfe benutzen.

Gruß

[wadimwadim]

verstehe ich nicht... kann mir da niemand ein beispiel geben?
EDIT:
habs hinbekommen... Falls andere das gleiche Problem haben sollten.
(einfach Typbibliothek importieren)

[Alter Mann]

Hm ,

Du hast eine Quelle angegeben aus dem das Beispiel war und zwei Postings unterhalb dieses
Beispiels stand die Erläuterung sowie Lösung.

Und zum anderen steht in der deutschen Hilfe zu ControlGetText

Zitat:

Erfragt Text vom Steuerelement.

ControlGetText ( "title", "text", controlID )

Parameter

title Der Titel des Fensters, auf das zugegriffen werden soll.
text Der Text des Fensters, auf das zugegriffen werden soll.
controlID Die ID des Steuerelements, das beeinflusst werden soll. Siehe Controls.

Rückgabewert

Erfolg: Gibt den Text des Steuerelements zurück.
Fehler: Setzt @error = 1 und gibt einen leeren String "" zurück.

Mehr habe ich nicht gemeint, zu verstehen gab es da nicht viel

Das es letztendlich an fehlenden Typbibliothek-Import lag
Ich kann mich da Codewalker nur anschließen.

Gruß

PS Nicht verzagen und weiter Fragen

[wadimwadim]

warum kommt bei mir ein error, wenn ich eine function aus der typbibliothek aufrufen möchte?

hier bsp zu dem, was ich meine

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  A: TAutoItX3;
  public
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
A.MouseMove(10, 10, 1);
end;

end.

ERROR
"Zugriffsverletzung bei Adresse 0044F726 in Modul 'Project1.exe'. Lesen von Adresse 00000050."

[semo]

Du musst die Klasse erst mal instanzieren.
Sprich ein Objekt vom Typ TAutoItX3 erstellen.

Zum Beispiel
A := TAutoItX3.Create(...eventuelle Parameter ...);

[Diamondback2007]

Und auch wieder schön freigeben!

[Luckie]

Zitat von Diamondback2007:

Und auch wieder schön freigeben!

Bei Com-Servern reicht es die Instanz auf nil zu setzen. Freigegeben wird sie automatisch von dem COM-Server, wenn sie nicht mehr benötigt wird.

[Apollonius]

Nicht, wenn die Variable mit dem Klassentyp deklariert wird.

[Luckie]

Äh, das sagt mir jetzt nichts. Könntest du mir für beide Fälle bitte ein Beispiel geben?