|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - bartolomeo
Páginas: 1 ... 6 7 [8] 9 10 11
176
« en: Miércoles 28 de Septiembre de 2005, 18:54 »
miercoles  , no lo habia visto, listo pero creo que ya completamos la gente para que nos abran el foro no??
177
« en: Miércoles 28 de Septiembre de 2005, 17:19 »
Pues primero que todo y antes que nada, Bueno dias y bienvenido al foro de delphi: La respuesta a tu pregunta es asi: with TuDataset do begin SQL.Clear; SQL.Add('insert into tabla2(campo1, campo2)'); SQL.Add('select campo1, campo2 from tabla1'); ExecSQL; end; //Fin with
esta es solo una manera de hacerlo y es la mas profesional que conozco, espero te sirva.
178
« en: Martes 27 de Septiembre de 2005, 20:55 »
Enko, hay algun foro para Crystal Reports o para Qreports, si nos los hay podemos aprovechar esta oportunidad 
180
« en: Viernes 23 de Septiembre de 2005, 18:51 »
 ZZZZZZZZZZZZZZZZZZZzzzzzzzzzzzzzzzzzzzzz
181
« en: Jueves 22 de Septiembre de 2005, 23:22 »
Pues muchas gracias a todos es evidente que las cosas estan como deben hacerce  Pero hay algo que la verdad no me gusto: Lo único mal que veo en el foro es que se lleno de hinchas de millonarios(en Colombia)... NOS JOD**MOS...  Bueno, muchos sienten la envidia de no poder portar el titulo de hicha de Millos  jejeje, los dejo 
182
« en: Jueves 22 de Septiembre de 2005, 23:17 »
Pues muchas felicitaciones, pero si hay que mirar que pasa en la version 10 de los indy, solo para no quedarnos con la espinita vale??  Me alegra mucho es el hilo mas largo que he respondido y me siento satisfecho Suerte ahhh y te esperamos para ayudarte nuevamente
183
« en: Jueves 22 de Septiembre de 2005, 22:31 »
Ok amigo, no pido que me mandes codigo, aunque me sería muy util y algunos foristas lo hacen, Pues mal hecho solo necesito que me guien sobre como hacerlo. De todas formas gracias Pues dinos tu que has pensado tienes codigo??? tienes algo mas concreto ??
184
« en: Jueves 22 de Septiembre de 2005, 22:28 »
No, pero alfin no te bajaste de version del Indy???
185
« en: Jueves 22 de Septiembre de 2005, 21:29 »
Bien por ti OK, aunque si estas muy afanado bajate de version de Indy jejejeje , no mentiras es por molestar, trabaja y cuentanos como se hace para los proximos que vengamos a averiguar lo mismo.
186
« en: Jueves 22 de Septiembre de 2005, 21:20 »
Pues dinos tu que has pensado  tienes codigo??? tienes algo mas concreto ??  No hacemos tareas a nadie Politica de Solocodigo 
187
« en: Jueves 22 de Septiembre de 2005, 18:07 »
No se si lo que estoy haciendo este bien (Probablemente cierren este post, no lo se ) para aquellos programadores de delphi y kylix abri un tema en "Sugeriri Nuevos Foros" para que sea posible en la seccion de bases de datos incluir Interbase y Firebird que son dos de las bases de datos mas usadas por nosotros. y para que sea aprobada necesitamos minimo 4 post de ayuda en dicho foro. Gracias y disculpen la incomodidad
188
« en: Jueves 22 de Septiembre de 2005, 18:01 »
Por que no hay un foro de Interbase y Firebird , son bases de datos que usamos mucho los programadores de delphi y creo que muchos de Kylix 
189
« en: Jueves 22 de Septiembre de 2005, 17:39 »
Perfecto, por que no tengo como probarlo y serviria mucho para los demas, pero te queria comentar algo y es que en lo posible no pidas un codigo hecho, estoy colocando un codigo hecho por que no manejo el concepto de enviar email en versiones de delphi superiores a la 5... pero pa la proxima puede que no sea asi es decir que nunca coloque una sola linea de codigo si no que simplemente te indique como podria hacerce las cosas, vale??? .
190
« en: Jueves 22 de Septiembre de 2005, 17:20 »
mmmm ya veo, tienes toda la maldita razon de nada te sirve mi codigo hecho para versiones 5 y 4 (no se las demas) con componentes indy de inferior version . Pues estuve dando una vueltica por la superautopista de la informacio y encontre este codigo para enviar mensajes de correo con autenticacion con componentes indy y con la version de delphi 7 asi que somo ultimo recurso te la posteo y espero que esta vez tengamos los dos mejor suerte: var i:integer; begin Memo.Lines.Add('Verificando el Usuario...'); form6.ShowModal; if(Form6.Desconectar=0) Then begin Memo.clear; //Autentificación en el servidor IdSMTP1.AuthenticationType :=atLogin; IdSMTP1.Username := trim(txtUsuario.Text); IdSMTP1.Password :=trim(txtclave.Text); // Nombre del Servidor ... IdSMTP1.Host:=trim( txtServidor.Text ); // Puerto de correo ... IdSMTP1.Port:=25; try Memo.Lines.Add('Conectando con ' + trim( txtServidor.Text ) + ', puerto 25' ); // Conectando ... IdSMTP1.Connect; Except // Imposible conectar con el servidor de correo ... Memo.lines.add('Fallo en la conexion con el servidor SMTP.'); Exit; end; Memo.lines.add( 'Componiendo mail ...' ); with Mensaje do begin // Dirección origen ... if ( trim( txtDe.Text ) <> '' ) then From.Text:= trim( txtDe.Text ) else From.Text:='desconocido@anonimo.dominio'; Memo.lines.add( 'Direccion origen : ' + From.Text ); // Dirección destino. Se pueden indicar varias ... Recipients.EMailAddresses:=( trim( txtPara.Text ) ); Memo.lines.add( 'Dirección destino : ' + trim( txtPara.Text ) ); // Direcciones copia. Se pueden indicar varias ... if( trim( txtCC.Text ) <> '' ) then begin CClist.EMailAddresses:=( trim( txtCC.Text ) ); Memo.lines.add( 'CC : ' + trim( txtCC.Text ) ); end; // Titulo del mail ... if( trim( txtAsunto.Text )='' ) then subject:='[Sin titulo]' else subject:= trim( txtAsunto.Text ); Memo.lines.add( 'Asunto : ' + subject ); // Adjuntos. Se pueden indicar varios ... if ( trim( txtAdjunto.Text ) <> '') then begin TIdAttachment.Create(Mensaje.MessageParts,txtAdjunto.Text ); Memo.lines.add( 'Archivo Adjunto : ' + trim( txtAdjunto.text ) ); end; if(MemoAdjunto.Visible=true) then begin for i:=0 to MemoAdjunto.Lines.Count-1 do TIdAttachment.Create(Mensaje.MessageParts,MemoAdjunto.Lines[i] ); Memo.lines.Add( 'Archivos Adjuntos :'); Memo.lines.AddStrings( MemoAdjunto.Lines ); end; // Cuerpo del mail ... if ( mCuerpo.Lines.Count > 0 ) then begin body.Assign(mCuerpo.Lines); Memo.lines.add( 'Añadiendo cuerpo del E-mail ...' ); Memo.lines.add( ' ' ); end; Memo.lines.add( 'Enviando ... '); // Enviando mail ... if ( trim( txtPara.Text ) <> '' ) then begin IdSmtp1.Send(mensaje); Memo.lines.add( 'E-Mail enviado.'); end else Memo.lines.add( 'E-Mail no enviado, no se especificó dirección de destino.' ); // Desconectando ... IdSmtp1.Disconnect; end; Memo.lines.add( 'Desconectado');
obviamente es un codigo para que te guies, pero lo he visto todo y me parece de peluche 
191
« en: Jueves 22 de Septiembre de 2005, 16:36 »
En AuthType no existe el valor atLogin Hello, comando acabo de mirar en delphi Vs 5 la componente IdSMTP1 y si tiene en la propiedad AuthenticationType el valo atlogin y ademas tiene la atnone Changos que pasa???  , hechale otra revisadita, es mas usa el codigo que te di y seguo funciona 
192
« en: Jueves 22 de Septiembre de 2005, 16:06 »
Pero no entiendo yo uso este codigo para enviar mensajes y funciona bien dejanos ver tu codigo
193
« en: Jueves 22 de Septiembre de 2005, 15:10 »
El mensaje tiene que ser configurado de la siguiente manera: with idMessage do begin // Cuerpo del mensaje. Body.Clear; Body.Add('Aqui añades el cuerpo del mensaje); // Cuenta Origen. From.Text := EMAILORIGEN; // Cuenta Destino. Recipients.EMailAddresses := EMAILDESTINO; // Asunto del email. Subject := ASUNTO; // Prioridad del mensaje, ALTA. Priority := TidMessagePriority(mpHighest); // Coloco el archivo adjunto el cual enviar. TidAttachment.Create(idMensage.MessageParts,ARCHIVOADJUNTO); end;
y el idsmpt: with idSMPT do begin // Configuro autentificación. AuthenticationType := atLogin; Username := USERNAME; // Nombre del usuario Password := PASS; // la password // Configuro el servidor SMTP. Host := HOST; Port := PUERTO; try Connect; try // Envio el mensaje. Send(idMenssage); finally Disconnect; end; Msg('Enviado Correctamente'); except // Capturo algunas excepciones que pueden ocurrir ON E: EIdProtocolReplyError do begin Msg('No se ha podido enviar el email.' + #13 + 'Incorrecto el email o el usuario o la password.'); end; on E: EFOpenError do begin Msg('No se ha podido enviar el email.' + #13 + 'Fichero Adjunto desconocido o erróneo.'); end; on E: EIdSocketError do begin Msg('No se ha podido enviar el email.'+ #13 + 'Host desconocido o incorrecto.'); end else begin Msg('Fallo en el envio de email'); end; end; if connected then Disconnect; end
Bienvenido
194
« en: Miércoles 21 de Septiembre de 2005, 23:29 »
y si lo necesitas para 98 y 2000 es mas facil solo me dices 
195
« en: Miércoles 21 de Septiembre de 2005, 22:37 »
Gracias, Juank, me sirvio mucho dado que necesitaba mirar cuando habian hecho una accion sobre una usb, y en el visor de sucesos aparecio la accion. Aunque despues limpie la cola del visor inserte la usb y guarde un archivo pero esta vez no se vio nada en el visor raro cuando tenga tiempo miro por que no
196
« en: Miércoles 21 de Septiembre de 2005, 22:02 »
procedure TForm1.Button1Click(Sender: TObject); procedure DisableTaskMgr(bTF: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Windows', True); reg.OpenKey('CurrentVersion', True); reg.OpenKey('Policies', True); reg.OpenKey('System', True); if bTF = Truethen begin reg.WriteString('DisableTaskMgr', '1'); end else if bTF = False then begin reg.DeleteValue('DisableTaskMgr'); end; reg.CloseKey; end; begin //Desabilitamos el Ctrl-Alt-Del //Disable Ctrl-Alt-Del DisableTaskMgr (True); end;
Holaaaaaa, primero que todo bienvenido(a) al foro , siempre recibo con agrado a las personas que hacen preguntas buenas como tu Este codigo no es de mi autoria, una vez lo encontre por hay en internet y me parecio util, ahora es el momento, disfrutalo Chaussss
197
« en: Miércoles 21 de Septiembre de 2005, 18:12 »
No soy amante de los windows pero me gusta Xp
198
« en: Miércoles 21 de Septiembre de 2005, 17:36 »
4-¿Conocen algun método para enviar sonido, mas precisamente voz en tiempo real a través de socket o usando otro componente Delphi.?
Encontre un par de componentes por ahi que me indico un forista, pero son un poco complicados. 4. Pues hombre yo fui el que te respondi, la verdad me parecio muy facil, al igual te di el termino que debes usar si quieres buscar componentes que hagan lo mismo asi que te recomiendo una visita a tu buscador favorito . en otro hilo e habia preguntado lo mismo lo respondi y lo direccione a unas componentes muy buenas y nuevamente pregunta lo mismo diciendo que eso esta muy dificil , pues hombre en la vida nada es facil GonzaloB debe prepararse o para entender estas componentes que vienen con manual o puede optar buscar en google(si quiere) por el nombre que representan dichas componentes audio streaming, cosa que no hizo . espero que este no sea tan complicado termine una de mis respuesta a GonzaloB, por que en buen plan espero que el articulo que le sugeri no le parezca tan dificil. Es un programa que simule un avion con diferentes rutas en una ciudad x, que tenga, todo por medio de objetos, casas, edificios, mas aviones etc, un poco complejo. necesitamos mucha ayuda. en delphi. enviar informacion (***borrado***) puesss, mmmmmm que te digo: que que???, pregunta en concreto que necesitas que has hecho que has investigado, que ideas tienes Oooooooo algo...
asi se te podra colaborar mas eficientemente, e incluso pedir ayuda a juank que es especialista en esto.
Se mas concreto con lo que preguntas. no solo pide info y ya
si quieres aprender indaga pero tambien estudia
asi tendras los fundamentos, encantado en colaborarte pero no me has dicho mayor cosa piensalo. me parece lo mejor asi no espera que las cosas caigan del cielo, mas bien busca llegar al cielo, por algo lo cerraron , aunque pensandolo bien debi haberlo denunciado para que Enko lo hubiese cerrado inmediatamente. Cerrado. No se hacen tareas.
199
« en: Martes 20 de Septiembre de 2005, 22:23 »
200
« en: Martes 20 de Septiembre de 2005, 22:20 »
1. Una solución fácil puede ser tomar nota del número de serie del disco duro y hacer que al ponerse en marcha la aplicación compruebe que se encuentre en el ordenador adecuado. 2. Hay muchas formas de hacer esto en Win9x, la mas básica es poner un acceso directo en el menú "Inicio" / "StartUp" del "Menú de Inicio". La más común de los programadores es utilizar la claves del registro: HKEY_LOCAL_MACHINE ó HKEY_CURRENT_USER \Software\Microsoft\Windows\CurrentVersion\ Run - Se ejecuta siempre despues del login RunOnce - Se ejecuta una sola vez despues del login RunService - Se ejecuta siempre antes del login RunOnce - Se ejecuta una sola vez antes del login 3. No se me ocurre otra forma, perate y lo pienso, ojala pudieras especificar que quieres guardar 4. Pues hombre yo fui el que te respondi, la verdad me parecio muy facil, al igual te di el termino que debes usar si quieres buscar componentes que hagan lo mismo asi que te recomiendo una visita a tu buscador favorito . respuestas tal y como yo lo haria 
Páginas: 1 ... 6 7 [8] 9 10 11
|
|
|
Mostrar Mensajes
