Datentypen Umwandeln

**thomasvonmuenster1**

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=IBQuery1.FieldByName('Pfad').AsString;
Label4.Caption:=Edit2.Text;
if ShellExecute(windows.PROCESS_CREATE_THREAD, 'open', 'AcroRd32.exe', Edit2.Text, nil, SW_SHOWDEFAULT)< 33 then showmessage('Anwendung kann nicht geoeffnet werden ');

end;

Ich lese aus einer Interbase DB de Pfad einer PDF Datei aus und lase ihn anzeigen.
Das geht auch aber bei der Übergabe in die ShellExecute Anweisung weigert er sich
und sagt
[Fehler] DbDatesF.pas(90): Inkompatible Typen: 'TCaption' und 'PAnsiChar'
wie kann PAnsiChar in einen String Umwandeln?
Oder geht es anders besser?

Danke Thomas!!

**Matze**

Hmm, an dem kann's eigentlich nicht liegen, normalerweise sind TCaption und PAnsiChar kompatibel, was folgendes Beispiel zeigt:

markieren

Delphi-Quellcode:

			var a: PAnsiChar;

begin

  a := 'test';

  Caption := a;

end;

**thomasvonmuenster1**

Ja das Stimmt.Ich kann es ja auch in ein Label Übergeben.
Aber es startet nicht die PDF Datei.
Manuell geht es aber.Aber nicht aus der Datebank!!!!
if ShellExecute(windows.PROCESS_CREATE_THREAD, 'open', 'AcroRd32.exe', 'c:\\test\test2.pdf', nil, SW_SHOWDEFAULT)< 33 then showmessage('Anwendung kann nicht geöffnet werden !');

**himitsu**

Eine Umwandlung geht ganz einfach.

markieren

Code:

S := [color=red]Typenbezeichnung([/color]A[color=red])[/color];

z.B.:

markieren

Delphi-Quellcode:

			Var S: String

  A: PAnsiChar;

S := String(A);

Achja, ShellExecute verlangt AnsiChar und nicht String (Edit2.Text = String)

markieren

Code:

			ShellExecute(windows.PROCESS_CREATE_THREAD, 'open', 'AcroRd32.exe', [color=red]PChar([/color]Edit2.Text[color=red])[/color], nil, SW_SHOWDEFAULT)
		

**thomasvonmuenster1**

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var s: String

    A: PAnsiChar;

begin

 A:=IBQuery1.FieldByName('Pfad').AsString;

 s := String(A);

 Label4.Caption:=Edit2.Text;

 if ShellExecute(windows.PROCESS_CREATE_THREAD, 'open', 'AcroRd32.exe', s, nil, SW_SHOWDEFAULT)< 33 then showmessage('Anwendung kann nicht geoeffnet werden ');

end;

So macht er es nicht!

**mirage228**

Zitat von himitsu:

markieren

Delphi-Quellcode:

			Var S: String

  A: PAnsiChar;

S := String(A);

Heisst des nicht StrPas in dem Fall ???, also

markieren

Delphi-Quellcode:

			var

  s: string;

  p: PChar;

begin

  // ...

  s := StrPas(p);

end;

**thomasvonmuenster1**

PChar(Edit2.Text) ergibt keine Fehler aber er gibt mir dann meine Fehlermeldung wieder!
Probiere jetzt mal StrPas

**mirage228**

in deinem Fall, muss zu PChar gecastet werden, da ShellExecute() PChar verlangt.

Zu deinem Fehler: Wenn du 'AcroRd32.exe' ohne Programmpfad angibst, sucht Windows die Datei im Programmverzeichnis. Da ist es möglich, dass ein Fehler beim Öffnen auftritt...

mfG
mirage228

**thomasvonmuenster1**

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  s: string;

  p: PChar;

begin

  s := StrPas(p);

  s:=IBQuery1.FieldByName('Pfad').AsString;

  if ShellExecute(windows.PROCESS_CREATE_THREAD, 'open', 'AcroRd32.exe', s, nil, SW_SHOWDEFAULT)< 33 then showmessage('Anwendung kann nicht geoeffnet werden ');

[Fehler] DbDatesF.pas(93): Inkompatible Typen: 'String' und 'PAnsiChar'

**kiar**

wenn denn sop:=Pchar (IBQuery1.FieldByName('Pfad').AsString); oder so

markieren

Delphi-Quellcode:

p:=strPas(IBQuery1.FieldByName('Pfad').AsString;

und p in deine shellexecute statt s.

Datentypen Umwandeln

Datentypen Umwandeln

Re: Datentypen Umwandeln

Re: Datentypen Umwandeln

Re: Datentypen Umwandeln

Re: Datentypen Umwandeln

Re: Datentypen Umwandeln

Re: Datentypen Umwandeln

Re: Datentypen Umwandeln

Re: Datentypen Umwandeln

Re: Datentypen Umwandeln

Forumregeln

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#2 Re: Datentypen Umwandeln 22. Mär 2004, 14:47 Hmm, an dem kann's eigentlich nicht liegen, normalerweise sind TCaption und PAnsiChar kompatibel, was folgendes Beispiel zeigt: markieren Delphi-Quellcode: var a: PAnsiChar; begin a := 'test'; Caption := a; end;
	Zitat

thomasvonmuenster1 Registriert seit: 19. Mär 2004 132 Beiträge Delphi 7 Enterprise	#3 Re: Datentypen Umwandeln 22. Mär 2004, 14:53 Ja das Stimmt.Ich kann es ja auch in ein Label Übergeben. Aber es startet nicht die PDF Datei. Manuell geht es aber.Aber nicht aus der Datebank!!!! if ShellExecute(windows.PROCESS_CREATE_THREAD, 'open', 'AcroRd32.exe', 'c:\\test\test2.pdf', nil, SW_SHOWDEFAULT)< 33 then showmessage('Anwendung kann nicht geöffnet werden !');
	Zitat

thomasvonmuenster1 Registriert seit: 19. Mär 2004 132 Beiträge Delphi 7 Enterprise	#7 Re: Datentypen Umwandeln 22. Mär 2004, 15:16 PChar(Edit2.Text) ergibt keine Fehler aber er gibt mir dann meine Fehlermeldung wieder! Probiere jetzt mal StrPas
	Zitat

kiar Registriert seit: 2. Aug 2003 Ort: Aschersleben 1.362 Beiträge Delphi 5 Professional	#10 Re: Datentypen Umwandeln 22. Mär 2004, 15:24 wenn denn sop:=Pchar (IBQuery1.FieldByName('Pfad').AsString); oder so markieren Delphi-Quellcode: p:=strPas(IBQuery1.FieldByName('Pfad').AsString; und p in deine shellexecute statt s. verhältnisse die einem nicht passen, muss man verändern oder verlassen
	Zitat