Delphi bitte !

FIGHT4RIGHTS

Kaiser

Dabei seit: 28.07.2003

Beiträge: 1 246

1

Dienstag, 25. Oktober 2005, 23:51

Hi Leute hab mal wieder ein prob mit pAnsichar usw..

hier der quelltext

gl. var:

var x:integer;
var URL:PAnsichar;

procedure TEarnForm.FormCreate(Sender: TObject);
begin
x:=1;
end;

procedure TEarnForm.Timer1Timer(Sender: TObject);
var y:PAnsichar;
begin
case x of

1: begin
Edit1.text:=IntToStr(x);
y:=PAnsichar(Edit1.text);
URL:='http://www.earningklicks.de/paidbanner/banner/view_paidbanner.php?bid='+y+'';
ShellExecute(handle,'open',Pchar(''+URL+''),nil,nil,SW_ShowNormal);
x:=x+1;
end;

........

Fehlermeldung ist Line 78 sprich rotmakiert folgende
Inkomp. Typen String und PAnsichar

und das versteh ich ueberhaupt net weil die var y und die var URL doch beide Ansichars sind ??? sonst hätt er doch bei der zuweisung von y merkern müssen ???

hilfe bitte

mfg
f4r

EDIT: Smilies deaktiviert

Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »treo« (26. Oktober 2005, 12:11)

MartyMcFly

Foren Gott

Dabei seit: 04.06.2003

Beiträge: 3 137

2

Mittwoch, 26. Oktober 2005, 08:43

Du definierst URL als AnsiChar, versuchst der Variablen unten aber einen Striung zuzuweisen mit URL:='http.....'

Warum definierst Du die Variablen nicht einfach als String?

Gruss
Marty

Losegarten

FIGHT4RIGHTS

Kaiser

Dabei seit: 28.07.2003

Beiträge: 1 246

3

Mittwoch, 26. Oktober 2005, 12:59

weil delphi im shellexecute befehl kein bock auf n String mit ner Variablen hat

bsp

ShellExecute(handle,'open','http://www.web.de',nil,nil,SW_ShowNormal);
das geht

ShellExecute(handle,'open','http://www.earningklicks.de/paidbanner/banner/view_paidbanner.php?bid='+y+'',nil,nil,SW_ShowNormal);
Fehlermeldung: Inkomp. Typen Stringen & PAnsichar

aber theorethisch müsste doch die obrige lsg gehen oder net

hifl mir bitte

mfg
f4r

Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

MartyMcFly

Foren Gott

Dabei seit: 04.06.2003

Beiträge: 3 137

4

Mittwoch, 26. Oktober 2005, 13:15

Zitat

Original von FIGHT4RIGHTS
weil delphi im shellexecute befehl kein bock auf n String mit ner Variablen hat

Sicher?

Zitat

ShellExecute(handle,'open','http://www.web.de',nil,nil,SW_ShowNormal);
das geht

Es wird ja auch ein String übergeben.

Zitat

ShellExecute(handle,'open','http://www.earningklicks.de/paidbanner/banner/view_paidbanner.php?bid='+y+'',nil,nil,SW_ShowNormal);
Fehlermeldung: Inkomp. Typen Stringen & PAnsichar

Logisch, weil die URL ein String ist, Dein Y aber von Dir als PAnsiChar deklariert ist. Deklarier doch Y einfach mal als String oder PString (keine Ahnung, wie das in Delphi heisst).

Gruss
Marty

Losegarten

FIGHT4RIGHTS

Kaiser

Dabei seit: 28.07.2003

Beiträge: 1 246

5

Mittwoch, 26. Oktober 2005, 13:35

so hab n bissel gechinched und jetzt geschummelt so gehts :

procedure TEarnForm.Timer1Timer(Sender: TObject);
var y

Ansichar;
begin
case x of

1: begin
Edit1.text:=IntToStr(x);
Edit2.text:='http://www.earningklicks.de/paidbanner/banner/view_paidbanner.php?bid=';
Edit3.Text:=Edit2.text+Edit1.text;
y:=PAnsiChar(Edit3.text);
URL:=y;
ShellExecute(handle,'open',PAnsiChar(URL),nil,nil,SW_ShowNormal);
x:=x+1;
end;

Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

MartyMcFly

Foren Gott

Dabei seit: 04.06.2003

Beiträge: 3 137

6

Donnerstag, 27. Oktober 2005, 08:35

Probier mal bitte:

Quellcode

procedure TEarnForm.Timer1Timer(Sender: TObject);
begin
case x of

1: begin
   Edit1.text:=IntToStr(x);
     URL:='http://www.earningklicks.de/paidbanner/banner/view_paidbanner.php?bid='+Edit1.text;
   ShellExecute(handle,'open',URL,nil,nil,SW_ShowNormal);
   x:=x+1;
   end;

Losegarten

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »MartyMcFly« (27. Oktober 2005, 08:36)

Slude

Haudegen

Dabei seit: 01.12.2002

Beiträge: 563

7

Donnerstag, 27. Oktober 2005, 09:43

Weiß auch nicht warum du nicht String benutzt

	Quellcode
1 2 3 4 5	var URL,y:string; ... y:=Edit1.text; URL:='http://www.earningklicks.de/paidbanner/banner/view_paidbanner.php?bid='+y+''; ShellExecute(handle,'open',PChar(URL),nil,nil,SW_ShowNormal);

müsste aber laufen mit PChar(einString) als Parameter für ShellExecute

Fighting for peace is like fucking for virginity