Programm läuft nur am Rechner an dem es erstellt wurde :(

[f4k3]

Schönen späten Nachmittag liebe DP'ler ;)

Wie ihr euch sicher denken könnt, hab ich mal wieder n Problem :P

und zwar ...


n kollege von mir hat n Programm geschrieben. das Programm ist momentan noch ziemlich unflexibel und man kann ein paar wichtige einstellungen nicht tätigen.
in dem Programm sind mehrer Pics und Videos fest hinterlegt.

Als das Programm geschrieben wurde wurde es auf unseren Servern gespeichert, und somit auch der Pfad, des Videos, auf unseren Server gelegt.
Zu guter letzt muss das Programm bis Donnerstag lauffähig sein, und auf einem anderen PC, der über keine Verbindung zum Server verfügt laufen.
Denn Schulung bei uns steht ne schulung an, und wir möchten den kunden schon einmal einen "vorab-blick" gewähren.

Das Programm läuft ja auch tadellos, sobald eine Verbindung zu dem Pfad des Videos besteht. (der wie bereits erwähnt auf unseren servern liegt)

Nun möchte ich im Mediaplayer unter Filename, nicht im Objektinspektor den Pfad des Videos stehen haben, sondern beim FormCreate Event im Verzeichnis, indem die .exe liegt und alle anderen Programmteile (Datenbanken, .pas-Dateien etc. - wie gesagt des teil muss nur laufen und ist noch nicht endprodukt), der Eigenschaft FileName "sagen" dass er die datei seat.avi hinterlegen soll.

Ich wollte es so realisieren ...

Delphi-Quellcode:

procedure TFmetall.FormCreate(Sender: TObject);
begin
MediaPlayer1.FileName:= 'seat.avi';
MediaPlayer1.Open;
...
...
...
end;

Wenn ich das Programm nun lokal auf x-beliebigen PC kopier, das Netzwerkkabel abknips und versuchen will, dass Programm zu starten kommt ne Microsoft Fehlerberichterstattung :( weiter nichts, kein ungültiger pfad, kein gar nix ...

Wenn ich aber das Programm, das immer noch lokal liegt, der Rechner keine Netzwerkverbindung hat, in Delphi 7 öffne und compalieren möchte, funzts ... hat jemand von euch ne idee?

Vielen Dank Euer f4k3

[mkinzler]

Ist Mediaplayer1.Active vor dem kompilieren auf False gesetzt worden?

[Kroko1999]

übergib den Pfad für Bilder, Videos etc einfach in ParamStr und liest in von dort ein

Delphi-Quellcode:

MyPath := Paramstr[1];
MediaPlayer1.FileName:= MyPath+'seat.avi';

!

[MrKnogge]

Zitat:

Delphi-Quellcode:

MediaPlayer1.FileName:= 'seat.avi';

Hierbei sucht dein Programm das Video aber nicht zwangsweise im Programmverzeichnis.
Besser wäre:

Delphi-Quellcode:

MediaPlayer1.FileName:= ExtractFilePath(ParamStr(0) + 'seat.avi';

Gruß

[f4k3]

Zitat:

Zitat von mkinzler

Ist Mediaplayer1.Active vor dem kompilieren auf False gesetzt worden?

Falls du die Eigenschaft AutoEnable meinst, weil ich find keine Active, die ist im Objektinspektor mit false angegeben.
wenn ich zu der Form gelange, die das Video enthält, siehst du bereits an diesem codeschnipsel, dass der MediaPlayer1 erst dann "geöffnet" wird ;)

Also ist nicht die Lösung des Problems ...

Delphi-Quellcode:

procedure TFmetall.FormCreate(Sender: TObject);
begin
MediaPlayer1.FileName:= 'seat.avi';
MediaPlayer1.Open;
...
...
...
end;

[mkinzler]

Die Eigenschaft heißt auch .Enabled nicht .Active.

[f4k3]

Zitat:

Zitat von Kroko1999

übergib den Pfad für Bilder, Videos etc einfach in ParamStr und liest in von dort ein

Delphi-Quellcode:

MyPath := Paramstr[1];
MediaPlayer1.FileName:= MyPath+'seat.avi';

!

Was bezweck ich dann damit? ich würd etz so aufn ersten Blick Paramter zu String konvertierung verstehen.
aber wo liegt das der Sinn? wenn ich ParamStr[1] den pfad zuweise, kommts doch genau aufs selbe raus oder nicht?

[f4k3]

Zitat:

Zitat von mkinzler

Die Eigenschaft heißt auch .Enabled nicht .Active.

der Mediaplayer wird auf .Enabled := True gesetzt, wenn der Timer in kraft tritt, und somit dass Video abgespielt wird.

[f4k3]

Zitat:

Zitat von f4k3

Was bewirkt dieses ParamStr?

okay ... delphi hilfe bringt doch was :P ... zumindest ab und zu :P
aber wenn er mir den dateinamen liefert, des ausgeführten programms und ich seat.avi dahinter häng ... kann ich mir vorstellen warum die fehlermeldung kommt,
also hilft mir auch nich weiter :(

Unter Windows gibt ParamStr(0) den Pfad und den Dateinamen des ausgeführten Programms zurück (z.B. C:\TEST\MYPROG.EXE).

[MrKnogge]

Drumm noch ein ExtractFilePath ...

[f4k3]

Ach ja, das Phänomen dass er auf meinem Rechner, ohne Netzwerkverbindung das Programm ausführen kann, (also in meiner Grundversion),
besteht immer noch ^^

[f4k3]

Zitat:

Zitat von MrKnogge

Drumm noch ein ExtractFilePath ...

derzeitiger Quellcode ...

Delphi-Quellcode:

procedure TFmetall.FormCreate(Sender: TObject);
begin
MediaPlayer1.FileName:= ExtractFilePath(ParamStr(0) + 'seat.avi');
MediaPlayer1.Open;
...
...
...
end;

Fehlermeldung beim compalieren dazu ... wieder im Anhang

[MrKnogge]

Delphi-Quellcode:

MediaPlayer1.FileName:= ExtractFilePath(ParamStr(0)) + 'seat.avi'; // Du möchtest den Pfad der Anwendung! Nicht des gesamten gebildes!

[f4k3]

leider nicht die Problemlösung :(

Kann nach wie vor das Programm nicht lokal auf irgendwelchen anderen Rechner starten.
Sobald ich das Netzwerkkabel entferne, das Programm starten will, kommt der Microsoft Fehlerberichterstattungs Dialog ... :(

[rollstuhlfahrer]

mal ne andere Frage: kann TmediaPlayer überhaupt Videos abspielen??

2. wenn du das Netzwerkkabel abknipst, startest du das Programm dann lokal?

[halinchen]

Ich möchte mal eure Aufmerksamkeit auf das Bild im Anhang lenken.

Es findest ein Gerät(etyp) nicht.

[Klaus01]

..und Du bist Dir sicher das der Mediaplayer auf den Rechnern avi Dateien abspielen kann?

Grüße
Klaus

[f4k3]

Zitat:

Zitat von rollstuhlfahrer

mal ne andere Frage: kann TmediaPlayer überhaupt Videos abspielen??

2. wenn du das Netzwerkkabel abknipst, startest du das Programm dann lokal?

1. Jep hat ja zuvor auch funktioniert

2. ich kopier das Programm meinet wegen auf lokaler Datenträger (C: ) ... knips das kabel ab ... und versuch zu starten.

Würde also schon behaupten dass ich es lokal starte ^^

[f4k3]

Zitat:

Zitat von Klaus01

..und Du bist Dir sicher das der Mediaplayer auf den Rechnern avi Dateien abspielen kann?

Grüße
Klaus

Alle rechner mit den gleichen Codes ausgestattet

Betriebssystem Win XP Pro mit SP2 ... alle Updates und Windows Media Player 11 ... alle Treiber installiert ... von dem her ... jow :P

[MrKnogge]

Was macht denn das Programm noch ausser das Video abspielen?

[Klaus01]

Zitat:

Zitat von f4k3

Zitat:

Zitat von Klaus01

..und Du bist Dir sicher das der Mediaplayer auf den Rechnern avi Dateien abspielen kann?

Grüße
Klaus

Alle rechner mit den gleichen Codes ausgestattet

Betriebssystem Win XP Pro mit SP2 ... alle Updates und Windows Media Player 11 ... alle Treiber installiert ... von dem her ... jow :P

Kannst Du mal schauen, ob das anghängte Projekt bei Dir läuft.
Ist nur ein TMediaPlayer und ein TOpenDialog - mehr nicht.
Einfach Datei auswählen und starten.

Denn soweit ich das weiß haben TMediaPlayer und Windows Media Player 11 nicht sehr viel gemein.
TMediaPlayer setzt auf den alten Window Media Player auf.

Grüße
Klaus

[mkinzler]

Funktioniert.

[rollstuhlfahrer]

bei mir auch, ohne probleme

[f4k3]

Bei Mir auch ... einzigster Unterschied dass bei mir .Display auf nem Panel liegt ...

dürft aber ansich nix anhaben ... habs wiederholt getestet ... und mir ist war nicht schlüssig warum und wieso ... aber wenn ich des netzwerkkabel zieh und mich vorher an der domäne angemeldet hab, dann funzts nich ... wenn ich aber mich abmelde und des netzwerkkabel zieh ... rechner hochfahr mich mit meinem profil an der domäne anmelde und dann quasi local bin ... funzts ...

muss halt noch optimiert werden, dass des auch läuft, falls im laufenden betrieb die server connections flöten gehen ^^

Vielen dank für eure Hilfe und den damit verbunden Einsatz ;)

Bestes Delphi Forum der Welt :) ...

Euer f4k3

[Luckie]

Zitat:

Zitat von f4k3

2. ich kopier das Programm meinet wegen auf lokaler Datenträger (C: ) ... knips das kabel ab ... und versuch zu starten.

Du kopierts aber die benötigten Dateien schon mit und legst sie ins Programmverzeichnis?

[f4k3]

Zitat:

Zitat von Luckie

Zitat:

Zitat von f4k3

2. ich kopier das Programm meinet wegen auf lokaler Datenträger (C: ) ... knips das kabel ab ... und versuch zu starten.

Du kopierts aber die benötigten Dateien schon mit und legst sie ins Programmverzeichnis?

lol ich bin zwar nich der Delphi-Crackhead ... aber soweit weiß ich das auch ... :P

Ja ich kopier den kompletten ordner lokal ... sogar mit allen delphi dateien ^^ (da es momentan ja nur ums testen geht ^^)

[agm65]

okay, ich hatte letztes auch so ein problem, überprüfe ob der haken bei komponenten - packages installieren - laufzeit packages verwenden -> den haken rausmachen !

[f4k3]

Zitat:

Zitat von agm65

okay, ich hatte letztes auch so ein problem, überprüfe ob der haken bei komponenten - packages installieren - laufzeit packages verwenden -> den haken rausmachen !

mhm ... ich find die Einstellung nicht, ich kann nur Packages installieren ... und dort könnt ich nen haken setzen bei "Mit Laufzeit - Packages aktualisieren" ... ansonsten gibts da nix zum einstellen ... und die frage is natürlich für welches Package?

[mkinzler]

In den Optionen deines Programmes

[f4k3]

Zitat:

Zitat von mkinzler

In den Optionen deines Programmes

mhm ... schön und gut ... aber da ist in keinem package n "häckchen" drin ?!