FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
||||
|
||||
#4
|
||||
|
||||
¿Sucia? ¿Ahora se le llama así a saber programar con la API de windows?
... Lo que hay que oir.... Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#5
|
|||
|
|||
sucio por mi poca experiencia con manejar la API desde delphi
Delphius, no estoy conforme, por que encuentro que es muy enredado para mi entender y que el volumen sea de 0 a 65mil algo. no lo encuentro eficiente o sera por que la API no es eficiente Lepe, sorry pero pense que era mas facil manejar la API. bueno por lo que veo me combiene mas usar la API, ya que una libreria me puede restringir si cambio la version de delphi 7 que uso gracias a todos por sus respuestas.. saludos |
#6
|
||||
|
||||
Cita:
A ver... si estas probando mi componente no deberías tener problemas, De hecho no lo tuve yo estando empleando Windows Me en aquel momento cuando lo diseñé... sobre XP menos problemas deberías tener. Mi componente ha sido hecho para ser usado en forma sencilla y cómoda. Lo que hace es alterar el volumen del sistema mediante una API de forma camuflada. ¿Tanto molesta el tener que hacer un SetVolume()? El componente fácilmente puede ser ampliado. ¿Porqué no pruebas añadirle lo que gustes? Independientemente de cualquier biblioteca que uses... todo al final se reduce a la API. Si deseas usar directamente la API pues hazlo, si deseas conseguir un paquete, biblioteca, o lo que fuese también puedes usarlo. Pues los componentes se han diseñado para evitar tener que emplear la API en forma directa... ¡esa es su ventaja! Si tanto dices que te cuesta usar la API ¿porqué no usar un componente? Al final... ¿en que quedamos? Explicate mejor. ¿Porqué no nos muestras lo que estás haciendo? Saludos, |
#7
|
|||
|
|||
Delphius, mi idea no es ofender ha nadien. quisas me exprese mal. pero la idea es que yo estoy probando varias formas de hacer lo mismo con el tema del volumen. quisas para mi esa un poco complicado de entender ya que soy novato en delphi.
mira uso el siguiente codigo como bajar el volumen del TMediaPlayer, pero si veo el control de win no baja el volumen me refiero a lo grafico que no lo baja pero si a lo sonoro. Código:
uses MMSystem; Type MCI_DGV_SETAUDIO_PARMS = record dwCallback : DWORD; dwItem : DWORd; dwValue : DWORD; dwOver : DWORD; lpstrAlgorithm : PChar; lpstrQuality : PChar; end; Type MCI_STATUS_PARMS = record dwCallback : DWORD; dwReturn : DWORD; dwItem : DWORD; dwTrack : DWORD; end; var Form1: TForm1; const MCI_SETAUDIO = $0873; MCI_DGV_SETAUDIO_VOLUME = $4002; MCI_DGV_SETAUDIO_ITEM = $00800000; MCI_DGV_SETAUDIO_VALUE = $01000000; MCI_DGV_STATUS_VOLUME = $4019; //***** rutina de sonido function GetMPVolume(MP : TMediaPlayer) : Integer; var p: MCI_STATUS_PARMS; begin p.dwCallback := 0; p.dwItem := MCI_DGV_STATUS_VOLUME; mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p)); Result:=p.dwReturn; end; procedure SetMPVolume(MP : TMediaPlayer; Volume : Integer); var p: MCI_DGV_SETAUDIO_PARMS; begin p.dwCallback := 0; p.dwItem := MCI_DGV_SETAUDIO_VOLUME; p.dwValue := Volume; p.dwOver := 0; p.lpstrAlgorithm := nil; p.lpstrQuality := nil; mciSendCommand(MP.DeviceID, MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p)); end; //bajar el sonido procedure TForm1.Timer1Timer(Sender: TObject); begin SetMPVolume(MediaPlayer1,TrackBar1.Position) end; tu libreria todavia no la pruebo pero me gustaria saber si la haz probado en delphi superior a 7 , no se como 2007. saludos |
|
|
|