| Autor |
Beitrag |
CrazyLuke
 
Beiträge: 247
Windows XP Pro
Turbo Delphi Explorer, D2005 PE
|
Verfasst: Mo 03.05.04 10:17
Hi!
Plötzlich erscheint in Delphi 6 PE folgende Fehlermeldung:
| Zitat: | [Error] WARNING. Duplicate resource(s):
[Error] Type 10 (RCDATA), ID TFORM4:
[Error] File D:\Eigene Dateien\Delphi\Unit4.dfm resource kept; file D:\Eigene Dateien\Delphi\Unit4.dfm resource discarded. |
Woran kann das liegen?
Hier mal der komplette Coe von Form4:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
| unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, StdCtrls, mmsystem;
type
TForm4 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure Label3Click(Sender: TObject);
private
public
end;
{$R sound.res}
{$R *.dfm}
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.FormCreate(Sender: TObject);
var
FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle:=FindResource(HInstance, 'SOUND1', 'WAVE');
if FindHandle<>0 then begin
ResHandle:=LoadResource(HInstance, FindHandle);
if ResHandle<>0 then begin
ResPtr:=LockResource(ResHandle);
if ResPtr<>Nil then
SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory);
UnlockResource(ResHandle);
end;
FreeResource(FindHandle);
end;
end;
procedure TForm4.Label3Click(Sender: TObject);
begin
ShellExecute( 0, 'open', PCHar ('http://www.bastardpop.co.uk'), nil, nil, sw_show);
end;
end. |
Moderiert von  Motzi: Code- durch Delphi-Tags ersetzt.
Zuletzt bearbeitet von CrazyLuke am Mo 03.05.04 11:13, insgesamt 1-mal bearbeitet
|
|
KidPaddle
Beiträge: 351
WinXP,Linux
D7 Prof, XE7
|
Verfasst: Mo 03.05.04 10:45
Die Meldung kommt, wenn Du 2 Formulare mit dem gleichen Namen im Projekt hast. Da jede DFM Datei als Resource unter dem Namen des Formulars gespeichert wird, kann er keine zwei gleiche Einträge erstellen.
Gruß
KidPaddle
Zuletzt bearbeitet von KidPaddle am Mo 03.05.04 10:56, insgesamt 1-mal bearbeitet
|
|
grayfox
Beiträge: 800
win98, winXP
D4 Standard; D6 Personal
|
Verfasst: Mo 03.05.04 10:48
hallo luke!
bei durchsicht deines quellcodes ist mir 2 mal der eintrag
  Delphi-Quelltext
aufgefallen. vielleicht liegts daran 
ich hatte die selbe fehlermeldung mal beim umbenennen eines projektes und mehrerer
units - nach einigen malen 'units entfernen' und 'projekt neu kompilieren' war dann ruhe.
mfg, stefan
|
|
CrazyLuke 
Beiträge: 247
Windows XP Pro
Turbo Delphi Explorer, D2005 PE
|
Verfasst: Mo 03.05.04 10:57
Danke. Jetzt funzt es:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
| unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, StdCtrls, mmsystem;
type
TForm4 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure Label3Click(Sender: TObject);
private
public
end;
var
Form4: TForm4;
implementation
{$R sound.res}
{$R *.dfm}
procedure TForm4.FormCreate(Sender: TObject);
var
FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle:=FindResource(HInstance, 'SOUND1', 'WAVE');
if FindHandle<>0 then begin
ResHandle:=LoadResource(HInstance, FindHandle);
if ResHandle<>0 then begin
ResPtr:=LockResource(ResHandle);
if ResPtr<>Nil then
SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory);
UnlockResource(ResHandle);
end;
FreeResource(FindHandle);
end;
end;
procedure TForm4.Label3Click(Sender: TObject);
begin
ShellExecute( 0, 'open', PCHar ('http://www.bastardpop.co.uk'), nil, nil, sw_show);
end;
end. |
Nur leider wird die Sopunddatei schon beim Anzeigen der ersten Form abgespielt, dabei solls doch erst beim Öffnen von Form4 ertönen...
Zuletzt bearbeitet von CrazyLuke am Mo 03.05.04 11:14, insgesamt 1-mal bearbeitet
|
|
CrazyLuke
Beiträge: 247
Windows XP Pro
Turbo Delphi Explorer, D2005 PE
|
Verfasst: Mo 03.05.04 11:10
So, das Prob ist gelöst, jetzt gehts wieder zum Ursprungsproblem: delphi-forum.de/view....php?p=146969#146969
|
|
|
