AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit MessageboxTimeout

Ein Thema von Ines · begonnen am 10. Apr 2012 · letzter Beitrag vom 10. Apr 2012
Antwort Antwort
Ines

Registriert seit: 22. Aug 2006
Ort: Augsburg
96 Beiträge
 
Delphi 2009 Enterprise
 
#1

Problem mit MessageboxTimeout

  Alt 10. Apr 2012, 10:29
WinXP - SP3, Delphi2009 Enterprise


Hallo,

ich hoffe, ihr könnt mir helfen!

Ich wollte MessageBoxTimeout ausprobieren, habe den Sourcecode in mein Programm übertragen - funktioniert soweit alles (fast) gut. Ich bekomme keine Fehlermeldungen beim Compilieren, die Messagebox "verschwindet" nach der eingestellten Zeit, allerdings werden weder der Text für lpCaption noch für lpText richtig dargestellt. Klartext: vom Text wird nur das 1. Zeichen dargestellt, der Rest nicht.
Delphi-Quellcode:
  
// Define a MessageBox with a Yes and No button and a timeout of
// 5 seconds
   iFlags := MB_YESNO or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION;
   iResult := MessageBoxTimeout(Application.Handle, 'Test a timeout of 5 seconds.', 'MessageBoxTimeout Test', iFlags, 0, 5000);
Statt MessageBoxTimeout Test erscheint ein "M", statt Test a timeout of 5 seconds nur das "T".
Könnt ihr mir bitte weiterhelfen und sagen, wo ich den Fehler mache.

Vielen Dank für eure Mühe
Ines
Ines
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.048 Beiträge
 
Delphi 12 Athens
 
#2

AW: Problem mit MessageboxTimeout

  Alt 10. Apr 2012, 10:34
Ein alltägliches Unicode-ANSI-Verständigungsproblem.
Du wirst die Parameter als Unicode übergeben, aber die ANSI-Version der API aufrufen.
Der Compiler gibt wohl keine Warnungen aus?

Zitat:
habe den Sourcecode in mein Programm übertragen
Welchen?
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (10. Apr 2012 um 10:36 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.195 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Problem mit MessageboxTimeout

  Alt 10. Apr 2012, 10:35
Ein nettes Unicode-Ansi-Verständigungsproblem.
Du wirst die Parameter als Unicode übergeben, aber die ANSI-Version der API aufrufen.
Und höchstwahrscheinlich weißt ihn der Compiler auf das Problem hin. Aber wer interessiert sich für sowas unwichtiges wie Compilermeldungen ...
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Problem mit MessageboxTimeout

  Alt 10. Apr 2012, 10:44
Du kannst die im Netz kursierenden Deklarationen anpassen
Delphi-Quellcode:
{$IFDEF UNICODE}
function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar;uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;external user32 name 'MessageBoxTimeoutW';
{$ELSE}
function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar;uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;external user32 name 'MessageBoxTimeoutA';
{$ENDIF}
function MessageBoxTimeOutA(hWnd: HWND; lpText: PChar; lpCaption: PChar;uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;external user32 name 'MessageBoxTimeoutA';
function MessageBoxTimeOutW(hWnd: HWND; lpText: PWideChar; lpCaption: PWideChar;uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall; external user32 name 'MessageBoxTimeoutW';
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.620 Beiträge
 
Delphi 12 Athens
 
#5

AW: Problem mit MessageboxTimeout

  Alt 10. Apr 2012, 10:46
Geht auch etwas kürzer und vor allem korrekter (bei der Ansi-Variante muss das auch PAnsiChar sein):
Delphi-Quellcode:
function MessageBoxTimeOut(hWnd: hWnd; lpText: PChar; lpCaption: PChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32 name
{$IFDEF UNICODE}'MessageBoxTimeoutW'{$ELSE}'MessageBoxTimeoutA'{$ENDIF};
function MessageBoxTimeOutA(hWnd: hWnd; lpText: PAnsiChar; lpCaption: PAnsiChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32 name 'MessageBoxTimeoutA';
function MessageBoxTimeOutW(hWnd: hWnd; lpText: PWideChar; lpCaption: PWideChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32 name 'MessageBoxTimeoutW';
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Ines

Registriert seit: 22. Aug 2006
Ort: Augsburg
96 Beiträge
 
Delphi 2009 Enterprise
 
#6

AW: Problem mit MessageboxTimeout

  Alt 10. Apr 2012, 10:59
Von hier habe ich den SourceCode:

http://www.delphipraxis.net/72859-se...timeout-2.html

Ein nettes Unicode-Ansi-Verständigungsproblem.
Du wirst die Parameter als Unicode übergeben, aber die ANSI-Version der API aufrufen.
Und höchstwahrscheinlich weißt ihn der Compiler auf das Problem hin. Aber wer interessiert sich für sowas unwichtiges wie Compilermeldungen ...
Nein, der Compiler weißt sie nicht auf das Problem hin
0 Hinweise
0 Warnungen

Sonst hätte ich nicht behauptet, der Compiler läuft anstandslos durch!

@DeddyH + Bummi:

Vielen Dank, jetzt funktionierts! Ihr habt mir wirklich sehr geholfen.

Ines
Ines

Geändert von Luckie (10. Apr 2012 um 12:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.048 Beiträge
 
Delphi 12 Athens
 
#7

AW: Problem mit MessageboxTimeout

  Alt 10. Apr 2012, 11:13
noch kürzer
Delphi-Quellcode:
const LibLang = {$IFDEF UNICODE}'W'{$ELSE}'A'{$ENDIF}; // wenn man das öfters mal braucht

function MessageBoxTimeOut(hWnd: HWND; lpText, lpCaption: PChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32 name 'MessageBoxTimeout' + LibLang;
function MessageBoxTimeOutA(hWnd: HWND; lpText, lpCaption: PAnsiChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32;
function MessageBoxTimeOutW(hWnd: HWND; lpText, lpCaption: PWideChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32;
Man kann es sogar verpascalen. (wenn man weiß wie die Strings intern arbeiten)
Delphi-Quellcode:
function MessageBoxTimeOut(OwnerWindow: HWND; const Text, Caption: string;
  MType: LongWord; LanguageID: Word; Milliseconds: LongWord): Integer; stdcall;
  external user32 name 'MessageBoxTimeout' + LibLang;
function MessageBoxTimeOutA(OwnerWindow: HWND; const Text, Caption: AnsiString;
  MType: LongWord; LanguageID: Word; Milliseconds: LongWord): Integer; stdcall;
  external user32;
function MessageBoxTimeOutW(OwnerWindow: HWND; const Text, Caption: {$IFDEF UNICODE}UnicodeString{$ELSE}WideString{$ENDIF};
  MType: LongWord; LanguageID: Word; Milliseconds: LongWord): Integer; stdcall;
  external user32;
Zitat:
Nein, der Compiler weißt sie nicht auf das Problem hin
Du hast dann bestimmt sowas erwischt:

PChar und dann ein ...A
http://delphi.about.com/od/adptips20...ltip1004_5.htm
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (10. Apr 2012 um 12:14 Uhr)
  Mit Zitat antworten Zitat
Ines

Registriert seit: 22. Aug 2006
Ort: Augsburg
96 Beiträge
 
Delphi 2009 Enterprise
 
#8

AW: Problem mit MessageboxTimeout

  Alt 10. Apr 2012, 12:09
@himitsu

Den ersten Quellcode werde ich ausprobieren.
Danke
Ines
  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 10:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz