* * * *

Privacy Policy

Blog italiano

Clicca qui se vuoi andare al blog italiano su Lazarus e il pascal.

Forum ufficiale

Se non siete riusciti a reperire l'informazione che cercavate nei nostri articoli o sul nostro forum vi consiglio di visitare il
Forum ufficiale di Lazarus in lingua inglese.

Lazarus 1.0

Trascinare un file nel programma
DB concetti fondamentali e ZeosLib
Recuperare codice HTML da pagina web
Mandare mail con Lazarus
Stabilire il sistema operativo
Esempio lista in pascal
File INI
Codice di attivazione
Realizzare programmi multilingua
Lavorare con le directory
Utilizzare Unità esterne
TTreeView
TTreeview e Menu
Generare controlli RUN-TIME
LazReport, PDF ed immagini
Intercettare tasti premuti
Ampliare Lazarus
Lazarus e la crittografia
System Tray con Lazarus
UIB: Unified Interbase
Il file: questo sconosciuto
Conferma di chiusura di un applicazione
Liste e puntatori
Overload di funzioni
Funzioni a parametri variabili
Proprietà
Conversione numerica
TImage su Form e Panel
Indy gestiore server FTP lato Client
PopUpMenu sotto Pulsante (TSpeedButton)
Direttiva $macro
Toolbar
Evidenziare voci TreeView
Visualizzare un file Html esterno
StatusBar - aggirare l'errore variabile duplicata
Da DataSource a Excel
Le permutazioni
Brute force
Indy 10 - Invio email con allegati
La gestione degli errori in Lazarus
Pascal Script
Linux + Zeos + Firebird
Dataset virtuale
Overload di operatori
Lavorare con file in formato JSON con Lazarus
Zeos ... dietro le quinte (prima parte)
Disporre le finestre in un blocco unico (come Delphi)
Aspetto retrò (Cmd Line)
Lazarus 1.0
Come interfacciare periferica twain
Ubuntu - aggiornare free pascal e lazarus
fpcup: installazioni parallele di lazarus e fpc
Free Pascal e Lazarus sul Raspberry Pi
Cifratura: breve guida all'uso dell'algoritmo BlowFish con lazarus e free pascal.
Creare un server multithread
guida all'installazione di fpc trunk da subversion in linux gentoo
Indice
DB concetti fondamentali e connessioni standard
Advanced Record Syntax
DB concetti fondamentali e DBGrid
DB concetti fondamentali e TDBEdit, TDBMemo e TDBText
Advanced Record Syntax: un esempio pratico
Superclasse form base per programmi gestionali (e non)
Superclasse form base per programmi gestionali (e non) #2 - log, exception call stack, application toolbox
Superclasse form base per programmi gestionali (e non) #3 - traduzione delle form
Superclasse form base per programmi gestionali (e non) #4 - wait animation
Un dialog per la connessione al database:TfmSimpleDbConnectionDialog
Installare lazarus su mac osx sierra
immagine docker per lavorare con lazarus e free pascal
TDD o Test-Driven Development
Benvenuto! Effettua l'accesso oppure registrati.
Dicembre 02, 2024, 02:42:52 pm

Inserisci il nome utente, la password e la durata della sessione.

21 Visitatori, 1 Utente
 

Autore Topic: Da dove discende ODVIDEO  (Letto 2478 volte)

francesco

  • Jr. Member
  • **
  • Post: 59
  • Karma: +0/-0
Da dove discende ODVIDEO
« il: Novembre 17, 2023, 02:50:01 pm »
Mi da' errore su odvideo che dovrebbe essere della libreria vlc, se non e' cosi' da dove deriva? :'( :'(

DragoRosso

  • Scrittore
  • Hero Member
  • *****
  • Post: 1413
  • Karma: +44/-0
  • Prima ascoltare, poi decidere
Re:Da dove discende ODVIDEO
« Risposta #1 il: Novembre 17, 2023, 03:32:31 pm »
Mi da' errore su odvideo che dovrebbe essere della libreria vlc, se non e' cosi' da dove deriva? :'( :'(

Scusa, ma messo così come facciamo a capire a cosa ti riferisci ?

Cosa stai facendo ? Stai usando un esempio di qualcosa ? PasVlc ?
:) Ogni alba è un regalo, ogni tramonto è una conquista :)

francesco

  • Jr. Member
  • **
  • Post: 59
  • Karma: +0/-0
Re:Da dove discende ODVIDEO
« Risposta #2 il: Novembre 17, 2023, 06:46:48 pm »
si voglio utilizzare la libreria vlc ma il codice che dovrebbe funzionare in realta' mi da un errore

Codice: [Seleziona]

procedure TForm8MIOpenClick(Sender: TObject);
begin
With ODVideo do
begin
FileName:=FFileName;
if Execute then
begin
FFileName:=FileName;
FPlayer.PlayFile(FFileName);
Caption:=’Lazarus video demo: ’ + filename;
end;
end;
end;

errore;

unit8.pas(55,6) Error: Identifier not found "ODVideo"

forse deve essere solo dichiarata la variabile, ma non so' di quale tipo....

grazie



DragoRosso

  • Scrittore
  • Hero Member
  • *****
  • Post: 1413
  • Karma: +44/-0
  • Prima ascoltare, poi decidere
Re:Da dove discende ODVIDEO
« Risposta #3 il: Novembre 17, 2023, 08:23:48 pm »
Ragioniamo un attimo, quel codice lo hai copiato immagino. Da dove ? E' probabile che ODVideo fosse stato dichiarato nel progetto originale. Basta che effettui una ricerca e lo riesci a trovare.

Non è presente nel progetto PasVlc.

:) Ogni alba è un regalo, ogni tramonto è una conquista :)

francesco

  • Jr. Member
  • **
  • Post: 59
  • Karma: +0/-0
Re:Da dove discende ODVIDEO
« Risposta #4 il: Novembre 18, 2023, 07:25:29 pm »
si e' nel progetto che uso la libreria ( in realta' files .pas )

ecco il codice:

Codice: [Seleziona]

procedure TForm8MIOpenClick(Sender: TObject);
begin
With ODVideo do
begin
FileName:=FFileName;
if Execute then
begin
FFileName:=FileName;
FPlayer.PlayFile(FFileName);
Caption:=’Lazarus video demo: ’ + filename;
end;
end;
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
FPlayer:=TLCLVLCPlayer.Create(Self);
FPlayer.ParentWindow:=PVideo;
FPlayer.OnTimeChanged:=@DoTimeChanged;
FPlayer.OnPositionChanged:=@DoPositionChanged;
FPlayer.OnLengthChanged:=@DoLengthChanged;
FPlayer.UseEvents:=True;
end;

procedure TForm8.DoPositionChanged(Sender: TObject; const APos: Double);
begin
FNewPosition:=Round(APos*100);
TThread.Synchronize(Nil,@SetNewPosition);
end;

procedure TForm8.creavideo();
begin
SetExceptionMask(AllExceptions);
with TVLCMediaListPlayer.Create(Nil) do
try
Player:=TVLCMediaPlayer.Create(Nil);
For I:=1 to ParamCount do
TVLCMediaItem(MediaItems.Add).Path:=ParamStr(i);
Play;
Repeat
Sleep(100);
until State in [libvlc_Ended,libvlc_Error];
finally
Player.Free;
Free;
end;

Setting the Path property of a TVLCMediaItem collection item is all that is needed to
play a file.


procedure TForm8.SetNewPosition;
begin
FShowing:=True;
try
TBVideo.Position:=FNewPosition;
finally
FShowing:=False;
end;
end;

procedure TForm8.TBVideoChange(Sender: TObject);
begin
if not FShowing then
FPlayer.VideoFractionalPosition:=TBVideo.Position/100;
end;

procedure TForm8.DoTimeChanged(Sender: TObject;
const time: TDateTime);
begin
FCurrentTime:=Time;
TThread.Synchronize(Nil,@DisplayTime);
end;
procedure TForm8.DoLengthChanged(Sender: TObject;
const time: TDateTime);
begin
FNewLength:=Time;
TThread.Synchronize(Nil,@DisplayTime);
end;

procedure TForm8.DisplayTime;
Function TtoS (T : TDateTime) : string;
Var
h,m,s,ms : Word;
begin
DecodeTime(T,h,m,s,ms);
if h>0 then
Result:=FormatDateTime(’hh:nn:ss’,T)
else
Result:=FormatDateTime(’nn:ss’,T);
end;
Var
s : string;
begin
S:=’/’;
if FNewLength>0 then
S:=S+TToS(FNewLength)
else
S:=S+’?’;
if (FCurrentTime>0) then
S:=TToS(FCurrentTime)+S
else
S:=’0:0’+S;
LTime.Caption:=S;
end;

procedure TForm8.BStopClick(Sender: TObject);
begin
10
FPlayer.Stop;
end;
procedure TForm8.BPauseClick(Sender: TObject);
begin
FPLayer.Pause;
end;
procedure TForm8.BResumeClick(Sender: TObject);
begin
FPlayer.Resume;
end;
procedure TForm8.AStopUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=FPlayer.Playing;
end;
procedure TForm8.APauseUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=FPlayer.Playing;
end;
procedure TForm8.AResumeUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=FPlayer.State=libvlc_Paused;
end;

procedure TForm8.TBVolumeChange(Sender: TObject);
begin
FPlayer.AudioVolume:=TBVolume.Position;
end;

end.                     

non so dove e' definito ODVIdeO

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2925
  • Karma: +20/-4
Re:Da dove discende ODVIDEO
« Risposta #5 il: Novembre 18, 2023, 08:19:53 pm »
premetto che, forse è perché è sabato sera, ma non ho capito un granché

comunque...
se stai copiando da un altro progetto, vedi nelle uses di quel progetto se c'è qualche unit in cui è definita quella classe

dovresti mettere le persone su questo forum in condizioni di poterti aiutare
potresti anche fornire qualche link su dove hai scaricato la libreria e a quale progetto ti stai ispirando

nomorelogic
Imagination is more important than knowledge (A.Einstein)

francesco

  • Jr. Member
  • **
  • Post: 59
  • Karma: +0/-0
Re:Da dove discende ODVIDEO
« Risposta #6 il: Novembre 19, 2023, 09:59:03 am »
e' un progetto sulla carta non vi sono esempi pratici. :'( :'(

grazie francesco.

francesco

  • Jr. Member
  • **
  • Post: 59
  • Karma: +0/-0
Re:Da dove discende ODVIDEO
« Risposta #7 il: Novembre 19, 2023, 10:39:11 am »

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2925
  • Karma: +20/-4
Re:Da dove discende ODVIDEO
« Risposta #8 il: Novembre 19, 2023, 03:53:09 pm »
ok, abbiamo individuato che è un progetto sotto lazarus

leggendo il pdf che hai segnalato, vedo che c'è bisogno del package lazvlc
lo hai già installato e/o messo nelle dipendenze del tuo progetto?


Edit:
in questo link c'è un tutorial che sembra fatto bene ed aggiornato
https://lazplanet.gitlab.io/2018/01/how-to-make-simple-video-player-in.html
in fondo trovi anche i link dei sorgenti

però trattandosi di un tutorial... ti suggerisco di seguire passo-passo le istruzioni
così sarai pià autonomo nelle modifiche

« Ultima modifica: Novembre 19, 2023, 03:59:26 pm da nomorelogic »
Imagination is more important than knowledge (A.Einstein)

DragoRosso

  • Scrittore
  • Hero Member
  • *****
  • Post: 1413
  • Karma: +44/-0
  • Prima ascoltare, poi decidere
Re:Da dove discende ODVIDEO
« Risposta #9 il: Novembre 19, 2023, 04:50:33 pm »
in questo link c'è un tutorial che sembra fatto bene ed aggiornato
https://lazplanet.gitlab.io/2018/01/how-to-make-simple-video-player-in.html

Il progetto usa PasLibVlc, non lazvlc o lclvlc.
« Ultima modifica: Novembre 19, 2023, 04:58:55 pm da DragoRosso »
:) Ogni alba è un regalo, ogni tramonto è una conquista :)

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2925
  • Karma: +20/-4
Re:Da dove discende ODVIDEO
« Risposta #10 il: Novembre 21, 2023, 05:32:26 pm »
non so dove e' definito ODVIdeO

Guardando il PDF che hai linkato, credo che ODVideo potrebbe essere un TOpenDialog.
In effetti compare in un evento che ha "Open" nel nome, credo sia l'open di un TMenùItem (MI), e poi è usato come fosse un open dialog.

Lo trovi nella palette dei dialog, secondo me basta che lo posizioni nel form principale e lo rinomini in "ODVideo".

Fai sapere se così si sistema.

ciao
nomorelogic
Imagination is more important than knowledge (A.Einstein)

francesco

  • Jr. Member
  • **
  • Post: 59
  • Karma: +0/-0
Re:Da dove discende ODVIDEO
« Risposta #11 il: Novembre 22, 2023, 04:00:35 pm »
ho trovato che ovideo è un record ma non so di quale tipo . record e basta non mi e' accettato.

unit8.pas(55,19) Fatal: Syntax error, "identifier" expected but ";" found

si aspetta qualcosa dopo record.... :'( :'(

francesco

  • Jr. Member
  • **
  • Post: 59
  • Karma: +0/-0
Re:Da dove discende ODVIDEO
« Risposta #12 il: Novembre 22, 2023, 04:08:57 pm »
ho trovato che ovideo è un record ma non so di quale tipo . record e basta non mi e' accettato.

unit8.pas(55,19) Fatal: Syntax error, "identifier" expected but ";" found

si aspetta qualcosa dopo record....

per il record ho trovato qui qualcosa

https://www.lazaruspascal.it/index.php?page=151

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2925
  • Karma: +20/-4
Re:Da dove discende ODVIDEO
« Risposta #13 il: Novembre 22, 2023, 04:12:18 pm »
in base al codice che vedi sotto (estratto dal PDF che hai segnalato)
ODVideo ha il metodo Execute e la proprietà FileName

Se infatti dovesse essere un record sarebbe un Advanced Record, ma questo mi lascia qualche dubbio.

Codice: [Seleziona]
procedure TMainForm.MIOpenClick(Sender: TObject);
begin
  With ODVideo do
    begin
      FileName:=FFileName;
      if Execute then
        begin
          FFileName:=FileName;
          FPlayer.PlayFile(FFileName);
          Caption:=’Lazarus video demo: ’+FFIleName;
        end;
    end;
end;

Come mai sei convinto che sia un record, hai qualche riscontro nel codice?
Imagination is more important than knowledge (A.Einstein)

francesco

  • Jr. Member
  • **
  • Post: 59
  • Karma: +0/-0
Re:Da dove discende ODVIDEO
« Risposta #14 il: Novembre 26, 2023, 04:26:19 pm »
Ho cercato ODVideo su internet e una possibilita' era un record :o :o

 

Recenti

How To

Utenti
  • Utenti in totale: 802
  • Latest: maXim.FI
Stats
  • Post in totale: 19224
  • Topic in totale: 2293
  • Online Today: 39
  • Online Ever: 900
  • (Gennaio 21, 2020, 08:17:49 pm)
Utenti Online
Users: 1
Guests: 21
Total: 22

Disclaimer:

Questo blog non rappresenta una testata giornalistica poiché viene aggiornato senza alcuna periodicità. Non può pertanto considerarsi un prodotto editoriale ai sensi della legge n. 62/2001.