Deutsches Lazarusforum

six1 hat geschrieben: ↑

Fr 14. Jan 2022, 18:38

Grundsätzlich habe ich noch dies gefunden: https://wiki.lazarus.freepascal.org/LazActiveX

Danke. Habe ich schon alles durch. Auch abgewandelt. Es ist zum Davonlaufen.

---
Ich liebe Maschinencode!
---

Danke für den Hinweis, aber bei Verwendung eines TFileNameEdit zur Auswahl und Übernahme mittel procedure TForm1.Button1Click(Sender: TObject); var actx: variant; fn: widestring; begin actx := ActiveXContainer1.ComServer; fn := UTF8Decode('file:///'+StringReplace(FileNameEdit1.FileName, '\', '/', [r...

>Hast du schon mal daran gedacht ein Beispiel zu veröffentlichen, wo der Fehler gezeigt wird. Weil so stochert jeder im Nebel. Ja und es gibt doch auch ein paar Leute die Windows haben. Es wird ja eben KEIN Fehler angezeigt. Sonst könnte ich ihn nachvollziehen. Es passiert nichts. Hier der kurze Que...

Moin, es gehen mir immer mehr Haare aus! Ich habe alles durchprobiert: extractfilepath(ParamStr(0)) extractfilepath(application.exename) extractfilepath(application.location) Im Edit-Feld als Kontrolle bekomme ich zwar den richtigen Pfad + Dateiname Edit1.Text:=ExtractFilePath(ParamStr(0))+'Dateinam...

Moin, > Mach doch den Aufruf AxcVLCPlugin2_1.OleServer.playlist.play; im OnActivate Event des Formulares. Ja, das ist mir klar. Aber wenn ich das Video so laden will, weil es im gleichen Verzeichnis liegt, wie die exe, dann passiert nichts: ... AxcVLCPlugin2_1.OleServer.playlist.add(URIParser.Filena...

Moin zusammen, ich habe AxcVLCPlugin2 in Verwendung und es funktioniert auch ganz gut. Wo aber bekomme ich eine fundierte Beschreibung her? Das Verwenden mit LazActiveXContainer ist verständlich und ich habe so etwas nachgebaut: uses variants, URIParser; ... procedure TForm1.Button1Click(Sender: TOb...

Ha! Genau!
OpenDocument((npn)+'.pdf'); // Variable + .pdf laden
So geht es, wenn die Datei im selben Verzeichnis liegt. Ansonsten mit Pfad.
Ich war blind.
Danke!

Moin, hier mein Versuch, ein PDF zu laden: ... procedure TForm1.Button3Click(Sender: TObject); begin ShellExecute(Handle, 'OPEN', '(pdf_n)', nil, nil, 1) end; procedure TForm1.ComboBox1Select(Sender: TObject); begin npn:= ComboBox1.Items[ComboBox1.ItemIndex]; pdf_n:= ((npn)+'.pdf'); end; Die Variabl...

Hallo, so empfindlich? Nun, mit über 68 Jahren Leben und dreißig Jahren Erfahrung in mikrorechnergesteuerten Anlagen, die ich in Maschinencode und Assembler programmiert habe (bis zur Umschulung wegen Krankheit), nehme ich mir die Freiheit heraus, so etwas zu schreiben. Da ich jetzt als Rentner Pasc...

Verstehe das nicht so ganz. Was meinst du mit "soll gewartet werden"?

Aber evtl hilft das Event OnEditingDone weiter.

Ja, danke.
Blind zu sein ist manchmal auch nicht schlecht. Man sieht so manchen Grünschnabel 'theo' nicht

Moin, ich habe zwei Überprüfungen von Eingaben in Edit-Felder siehe Bild. Je nach Ergebnis soll gewartet werden bis eine Eingabe erfolgt. Nur wie? Ich habe schon alle Schleifen ausprobiert (for to, REPEAT-UNTIL-Schleife, While), aber es macht bei nicht klick! Danke für eure Tipps. ... if Edit1.Text ...