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:

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.

Code:

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

z.B.:

Delphi-Quellcode:

Var S: String
  A: PAnsiChar;


S := String(A);

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

Code:

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

[thomasvonmuenster1]

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:

Delphi-Quellcode:

Var S: String
  A: PAnsiChar;


S := String(A);

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

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]

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

Delphi-Quellcode:

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

und p in deine shellexecute statt s.