Hallo,
ich schreibe eine Programm mit php, das über die Zwischenablage Parameter an ein Delphiprogramm übergibt. Leider gelingt es mir nicht, z.B. mein Delphiprogramm gleich mit mehreren Parameterm zu starten. Denn ich verwende den FireFox ohne
DirectX-Plugin. Falls also jemand schon dafür eine Lösung kennt: Bitte (an mich) weitersagen.
Nun zu meiner Frage: Da ich mehrere Parameter (auch Zahlen) übergebe, habe ich das in mehreren Zeilen gemacht, wobei jede Zeile ein neuer Parameter ist. Das ist für den, der mir mit phpIch habe es jetzt so versucht:
Delphi-Quellcode:
Procedure TForm1.Button1Click(Sender: TObject);
Var
I : Integer;
S : String;
Ablage : TClipBoard;
Begin
Try
Ablage:=TClipBoard.Create;
S:=Ablage.AsText;
For I:=1 To Pred(Length(S)) Do
Begin
If IsDelimiter(#13,S,Pred(I)+':Ende') Then
Begin
// Erst anzeigen
ShowMessage(Copy(S,1,I));
// Dann löschen inkl. #10
Delete(S,1,Succ(I));
End;
End;
If Length(S)<>0 Then ShowMessage(S);
Finally
Ablage.Free;
End;
End;
Leider wird nicht korrekt getrennt.
Handelt es sich bei den Zeilen um reinen Text, dann klappt es. Wenn aber Zahlen dabei sind, funktioniert es nicht.
Meine Beispiel-Zwischenablage
Zitat:
0005/08
200
9
tbdBW
1
C:\Eigene Dateien\Test
bringt 3 Messages. Und zwar:
- 0005/08:Ende
- 200
9
tbdBW:Ende
- 1
C:\Eigene Dateien\Test
Ich habe übrigens dasselbe Phänomen, wenn ich alles in einer Zeile in die Zwischenablage bringe und als Separator z.B. '|' verwende.
Was mache ich da falsch?