AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Einem Callback eine Antwort geben?
Thema durchsuchen
Ansicht
Themen-Optionen

Einem Callback eine Antwort geben?

Ein Thema von mirage228 · begonnen am 3. Okt 2003 · letzter Beitrag vom 4. Okt 2003
Antwort Antwort
Chewie

Registriert seit: 10. Jun 2002
Ort: Deidesheim
2.886 Beiträge
 
Turbo Delphi für Win32
 
#1

Re: Einem Callback eine Antwort geben?

  Alt 4. Okt 2003, 10:14
Da DLL und Anwendung im selben Adressraum liegen, sollte das eigentlich gehen:

Delphi-Quellcode:
// Anwendung
type
  TcsCallback = procedure(var AsMessage : PChar);

  procedure CBApp(const ACallbackProc : TcsCallback); external 'callbackdll.dll';

implementation

{$R *.DFM} 

procedure CalledBack(var AsMessage : PChar);
begin
  ShowMessage(AsMessage);
  AsMessage := AsMessage + ' - ' + DateTimetoStr(now);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CBApp(CalledBack);
end;
Delphi-Quellcode:
// DLL
type
  TcsCallBack = procedure(var AsMessage : PChar);

procedure CBApp(const ApCallback : TcsCallback);
var
  AsMessage: PChar;
begin
  AsMessage := 'TEST';
  ApCallback(AsMessage); //jetzt wird der Wert in der Funktion verändert
  ShowMessage(AsMessage); //kann jetzt <> 'TEST' sein
end;

exports CBApp;
Martin Leim
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz