DELPHI-Man32

Caso Queirz colocar num banco Intebase é mais facil ainda: cria a tabela no interbase CREATE TABLE "FOTO" ( "COD" INTEGER NOT NULL, "FOTO" BLOB SUB_TYPE 0 SEGMENT SIZE 1, CONSTRAINT "PK_FOTO" PRIMARY KEY("COD") ); NO DELPHI, você COLOCA UM COMPONENTE "OPENPICTUREDIALOG" COLOCA UM BOTÃO "FOTO" E NO EVENTO "ONCLICK" COLOCA ASSIM: begin IF openpicturedialog.execute then IBDataSetFOTO.LoadFromFile(openpicturedialog.FileName); end; até mais...

Gravar imagem JPG em tabela Paradox -------------------------------------------------------------------------------- Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; Foto:TImage; Dialog:TOpenPictureDialog); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin Dialog.InitialDir := 'c:\temp'; Dialog.Execute; if Dialog.FileName <> '' Then Begin if not (Tabela.State in [dsEdit, dsInsert]) Then Tabela.Edit; BS := TBlobStream.Create((Campo as TBlobField), BMWRITE); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromFile(Dialog.FileName); MinhaImagem.SaveToStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; Tabela.Post; DBISaveChanges(Tabela.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); begin Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, OpenPictureDialog1); // TbClientes é o nome de alguma Tabela // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente // OpenPictureDialog1 é o componente para abrir a figura end;

iclusive eu, acredita?

seu link no meno vai ficar assim! <a target="nomedoframe" href="pagina.asp">Link</a> HTML mesmo!

explika melhor ae véio!! se for possivel!

há!!! não tinhamos visto antes, mas valeu a tentativa!!

ASSIM ATA MEWLHOR Mr.Bam,,,, TE MAIS...

cara, no meu caso as vezes fica meio estressante pois quando os alunos pagam pelas aulas eles ficam mais interessados, quando são de graça eles acham que são os donos da situação, mas quanto o resto é muito bom mesmo, oh fod.. e sempre os pc ta com problema não é?, então já tive que consertar mais de 7 pc's num mesmo dia! horra!! são 20 pc's por minha conta, aula e manutenção, imagine ae!! bom é que o salario vale a pena! fallws brotter, qualquer coisa tamos ae pra ajudar também abraços, Lisandro Oliveira t+v, VAGNER

bem vou tentar fazer multplas conn aqui no meu db e depois retorno com o result ok, valeu pela dica bareta

você QUER USAR UM INCLUDE? <!--#include file="http://www.servidor.com/pagina.asp"--> já testou???? testei mas deu nada não, ñññ!!! so com o arquivo no servidor mesmo q deu certo

cara tentei também mas não tinha jeito, apenas com valores exatos ele funciona Select Case Nome Case "José" Primeiro = "Seu nome é José" Case "João" Primeiro = "Seu nome não é José" end select tive que apelar pro <% if else %> mesmo

é eu uso assim e da certo sempre: Nome = RS("Nome) ex: o nome ta "vagner" no db. no html: <p align="left">Meu nome é <%=UCase(Nome)%></p> ele fica assim: Meu nome é VAGNER

kro amigo bareta, num entendi bem sua sugestao????

mais precisamente em:(Windows XP) Iniciar > Configurações > Painel de Controle > Opções regionais e de idioma > Personalizar > Guia Data > Campo > Formato da data abreviada > escollhe a opção: dd/MM/aaaa. é isso ae!

kro amigo ViniciusJau, testei em 1024 e justamente por isso que deixei para evitar problemas no meu HTML, já muitos sites assim!!

seu site é muito bom mesmo, otimo layout

minha amiga Renata falou e disse tudo!!! agradeço a ela!! tai o resultado!! <% 'Cria a conecxao com o banco de dados Set Conectar = Server.CreateObject("ADODB.Connection") Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("enquetes.mdb") 'Determina o sql a ser usado na colsulta strSQL = "select * from Sistemas" Set RS = Conectar.Execute(strSQL) 'Soma os valores de cada sistema Total = RS("votos1") + RS("votos2") + RS("votos3") 'Variaveis de porcentagem Dim v1, v2, v3 'Determina a porcentagem de cada sistema, multiplica a quantd de votos por 100 e divide pelo total de votos v1 = RS("votos1") * 100 / Total v2 = RS("votos2") * 100 / Total v3 = RS("votos3") * 100 / Total 'Soma dos percentuais para resultar na base 100% v4 = v1+v2+v3 'Determina a largura da barra de windows B_win = 400 P_win = v1 L_win = B_win * P_win / 100 'Determina a largura da barra de linux B_lin = 400 P_lin = v2 L_lin = B_lin * P_lin / 100 'Determina a largura da barra para outros sistemas B_out = 400 P_out = v3 L_out = B_out * P_out / 100 %> aqui deu tudo certo, se alguém encontrar algum erro, favor postar pra gente ae!! te mais abraços, VAGNER

acho q você poderia colocar todos os links na mesma barra, assim ficari melhor o acesso para os usuarios do seu site!! e aquele imagem no topo num gostei poderia trabalhar uns efeitos nela

o que? porque? ta falando no lance da p1r4t4ri4?(#$%#$%¨$%¨$%¨$#$%@!#$!%$¨&)??? se for não vendo, não empresto nem incentivo o uso deles, mas vamos ser coerentes, mais de 50% dos Win, em uso são Q@#%$@#$%#$%¨#$%¨$% não he mesmo!!! então acho q o til }Bill a rico de mais, se alguém tive ele @#$!@#$!#@%@#$% deve usar ate quebar o cd mesmo!!!

caro amigo, basta você dar o boot pelo cd do win98 mesmo, depois coloca o cd do xp e executa o winnt.exe que dentro da pasta i386 do cd do xp, pronto!! vai demorar um poqinho mas é assim!!! ate mais quanto ao SmartDrive é só concelar que ele continua

inicialmente a instalação seria feita no Windows, depois no Linux, pois tenho dois hd's um com Windows outro com Conectiva Linux 8.

é uma escola pública, da prefeitura de minha cidade, as aulas são de graça para os alunos da rede publica de ensino!!!

bem pessaoal fiz uma enquete mas para mostrar os resultados quero mostrar alem dos votos, a porcentagem e as barras! como colocar essas barras para representar a porcentagem de votos? tipo: WINDWOS: ||||||||||||||||||||||||||||||||||||||||||||||||| LINUX : ||||||||||||||||||||||||||||||||| OUTROS: |||||| beleza OLHEM O RESULTADO ATE AGORA! ENQUETE - SISTEMAS OPERACIONAIS abraços, VAGNER

amigo, sempre vejo nos fontes do pessoal o TRIM antes do request.form, porque? nome = TRIM ( Request.Form( "nome" ) ) senha = TRIM ( Request.Form( "senha" ) ) alguém poderia me explicar?

acho que o problema e no tipo de dados(string) deveria ser moeda ou inteiros ai você poderia fazer a rotina para somar! um modo muito facil e: Total = RS("valor1") + RS("valor2")