Hallo zusammen,
folgender Code sollte eigentlich ein Textfeld an Rave übergeben.
Delphi-Quellcode:
procedure Tfrm_main.Drucken1Click(Sender: TObject);
var
MyPage : TRavePage;
MyMemo : TRaveMemo;
Buffer : PChar;
begin
msdm.rv_nachweis.Open;
with MSDM.rv_nachweis.ProjMan do
begin
MyPage := FindRaveComponent('Report3.Page1', nil) as TRavePage;
MyMemo := FindRaveComponent('DataMemo1', MyPage) as TRaveMemo;
GetMem(Buffer,Length(Taetigkeiten.edt_name.Text) + 1);
StrCopy(Buffer, PChar(Taetigkeiten.edt_name.Text));
MyMemo.Text:=Buffer;
FreeMem(Buffer);
end;
MSDM.rv_nachweis.ExecuteReport('Report3');
MSDM.rv_nachweis.Close;
end;
Nun gibt er zwei Fehldermeldungen aus:
- Zugriffsverletzung von Adresse ...
- "Unable to gain control of Rave Data Communication System"
Weiß jemand, was ich falsch mache?