LucAlucard

Bom dia a todos. Gostaria de saber se alguém sabe como carregar um arquivo binário para que o windows possa identifica-lo e abri-lo corretamente. Por exemplo: Tenho uma .jpg ou um .pdf cadastrado no banco. Quero que o usuário quando clique em um botão por exemplo consiga fazer o download desses arquivos, e abri-los com os programas determinados do windows... se for o .jpg eu abro o visualizador de imagem do Windows. Se for .pdf eu abro o Foxit Reader por exemplo.... Alguém sabe como fazer isso? Des de já agradeço a troca de conhecimento de todos!! Eu pedi em forma binária. Pois foi a forma que eu conseguiu salvar no sql server 2008

eu já uso a maior parte desses recursos, mas ainda tava querendo diminuir mais o tamanho do .exe. Ainda não consegui entender como fazer isso mas essas bpls são um bom caminho

Bom dia a todos da família script Brasil. Eu estou com um probleminha e não sei se isso é possível.. Encontrei um tutorial na ineternet de como diminuir o tamanho do .exe separando ele em .bpl... Porém não consigo separar as units em várias bpls, para facilitar o envio pela internet. Alguém sabe como fazer isso ou alguma sugestão melhor? O link que eu encontrei foi este: http://www.techtips.com.br/programacao/mod...single-package/

Bom dia a todos do forum script brasil. Venho até vocês hoje para pedir novamente ajuda rsrs... Bom, minha dúvida é a seguinte... Existe alguma forma de colocar uma tecla de atalho no sistema todo sem precisar iniciar os eventos "onkeydown/up/press", ou algo do tipo? Maass que funcione no sistema inteiro? Agradeço a ajuda. ^^

é então... esse é o ponto. Eu estava pensando em como desenvolver uma rotina que desse pra ser implementada em qualquer componente desse tipo entende? Quero simplesmente digitar lá 'Hello Word' e se o word ficar maior que o tamanho do panel ele pula pra linha de baixo sozinho e ficandotipo 'Hello'+ #13 +'Word' sabe? Porém ele conseguir entender sozinho o tamanho da fonte, o espaço que ele tem.. Porque se no Word da pra fazer porque o nosso querido Delphi não conseguiria? Td bem que são componentes prontos mas... será q n tem como fazer isso?

é... o bom e velho help do Delphi 7 foi o melhor.. o do 2010 eu não acho nada -.-' vo testar aqui brigadão Jhonas Jhonas funcionou direitinho cara! Brigadão!! Pode deixar que vou dar uma procurada em casa um help em forma de livre do delphi 7 pra ver se consigo achar as minhas dúvidas lá primeiro antes de posta-las aqui. De qualquer forma muito obrigado novamente cara!

no kso você joga cm parametro o width do panel / edit / label seja lá o q for p ele centralizar o texto e ajusta-lo?

Alguém tem alguma idéia de como fazer isso? Como ajustar um texto maior que o tamanho do panel que está em uma única linha, em várias linhas ajustadas? Se alguém tiver alguma idéia por favor ^^'.. help-me T-T

Gente conseguí resolver... mechi em tanta coisa mas não lembro qual delas que resolveu o problema... Por isso estou disponibilizando o fonte do código aqui. E também apenas o .exe pra quem quiser dar uma olhada. Fonte Funcionando: http://www.4shared.com/file/3a5u9pE2/Codig...age_Boniti.html .exe: http://www.4shared.com/file/EoE4qfhl/Showm...eBonitinho.html

meu mudei o código mas por enquanto ta assim: Form Inicial unit FrmInicial; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TFrmTelaIni = class(TForm) edtImgs: TEdit; SpeedButton1: TSpeedButton; cbBox: TCheckBox; EdtBtns: TEdit; Button1: TButton; edtTpTrans: TEdit; procedure edtImgsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure SpeedButton1Click(Sender: TObject); procedure Button1Click(Sender: TObject); private public end; var FrmTelaIni: TFrmTelaIni; implementation uses FrmMensagem_, AlertaDoMSN_, FrmAlertaDoMSN_; {$R *.dfm} procedure TFrmTelaIni.Button1Click(Sender: TObject); begin prExibeMensMsn(StrToInt(edtImgs.Text),StrToInt(edtTpTrans.Text)); end; procedure TFrmTelaIni.edtImgsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = VK_RETURN then begin SpeedButton1.Click; edtImgs.SelectAll; end; end; procedure TFrmTelaIni.SpeedButton1Click(Sender: TObject); begin if cbBox.Checked then NewShowMessage('Teste', 'Mensagem <b>DE TESTE</b> para saber se isso vai funcionar direitinho', StrToInt(edtImgs.Text)) else showmessage(IntToStr(NewMessageBox('Teste', 'Mensagem <b>DE TESTE</b> para saber se isso vai funcionar direitinho', StrToInt(edtImgs.Text), StrToInt(EdtBtns.Text)))); end; end. Form Alerta MSN unit FrmAlertaDoMSN_; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ThreadExibeMensMSN, Dialogs, ExtCtrls, StdCtrls, HTMLabel, ImgList, LMDPNGImageList, TeeProcs, TeeDraw3D, frmshape; type TFrmAlertaDoMSN = class(TForm) Panel1: TPanel; imgShow: TImage; imgsIco: TLMDPNGImageList; pnlMsgm: TDraw3D; lblMens: THTMLabel; Panel2: TPanel; Formshape1: TFormshape; T1: TTimer; TContad: TTimer; procedure T1Timer(Sender: TObject); procedure TContadTimer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private vAlertaMSN: TMsgMSN; procedure prExibeMensMsnInterno(Icone, Transacao: Integer); public vCont : Integer; { Public declarations } end; procedure prExibeMensMsn(Icone, Transacao: Integer); var FrmAlertaDoMSN: TFrmAlertaDoMSN; implementation {$R *.dfm} procedure prExibeMensMsn(Icone, Transacao: Integer); begin FrmAlertaDoMSN := TFrmAlertaDoMSN.Create(Application); FrmAlertaDoMSN.prExibeMensMsnInterno(Icone, Transacao); end; { TFrmAlertaDoMSN } procedure TFrmAlertaDoMSN.FormClose(Sender: TObject; var Action: TCloseAction); begin if not (T1.Enabled) then begin FreeAndNil(FrmAlertaDoMSN); end; Abort; end; procedure TFrmAlertaDoMSN.FormCreate(Sender: TObject); begin vCont := 0; end; procedure TFrmAlertaDoMSN.prExibeMensMsnInterno(Icone, Transacao: Integer); begin vAlertaMSN := TMsgMSN.Create(False, Self, Icone, Transacao); T1.Enabled := True; end; procedure TFrmAlertaDoMSN.T1Timer(Sender: TObject); begin if vAlertaMSN.vFim then T1.Enabled := False; if not(T1.Enabled) then begin T1.Enabled := False; end; end; procedure TFrmAlertaDoMSN.TContadTimer(Sender: TObject); begin vCont := vCont + 1; if vCont >= 4 then begin TContad.Enabled := False; vCont := 0; end; end; end. A thread unit ThreadExibeMensMSN; interface uses Classes, Forms, Windows, ExtCtrls, dialogs; type TMsgMSN = class(TThread) public vFim: Boolean; constructor Create(CreateSuspended: Boolean; Frm: TForm; Icone, Transacao: Integer); private vfrm: TForm; vIco, vTrans : Integer; protected procedure Execute; override; end; implementation uses FrmAlertaDoMSN_; { Important: Methods and properties of objects in visual components can only be used in a method called using Synchronize, for example, Synchronize(UpdateCaption); and UpdateCaption could look like, procedure TMsgMSN.UpdateCaption; begin Form1.Caption := 'Updated in a thread'; end; or Synchronize( procedure begin Form1.Caption := 'Updated in thread via an anonymous method' end ) ); where an anonymous method is passed. Similarly, the developer can call the Queue method with similar parameters as above, instead passing another TThread class as the first parameter, putting the calling thread in a queue with the other thread. } { TMsgMSN } constructor TMsgMSN.Create(CreateSuspended: Boolean; Frm: TForm; Icone, Transacao: Integer); begin inherited Create(CreateSuspended); vfrm := Frm; FreeOnTerminate := True; vIco := Icone; vTrans := Transacao; end; procedure TMsgMSN.Execute; var lFrm : TFrmAlertaDoMSN; I: Integer; BarraIniciar: HWND; { Barra Iniciar } tmAltura: Integer; tmRect: TRect; xTop: Integer; xIniTop: Integer; begin while (not Terminated) and (vFim = false) do begin lFrm := vFrm as TFrmAlertaDoMSN; //Priority := tpLower; BarraIniciar := FindWindow('Shell_TrayWnd', nil); // localiza o Handle da janela iniciar GetWindowRect(BarraIniciar, tmRect); // Pega o "retângulo" que envolve a barra e sua altura tmAltura := tmRect.Bottom - tmRect.Top; with lFrm do begin case vIco of 1: imgShow.picture.Assign(imgsIco.PNGByName['Questao.png']); 2: imgShow.picture.Assign(imgsIco.PNGByName['Questao2.png']); 3: imgShow.picture.Assign(imgsIco.PNGByName['Exclamacao.png']); 4: imgShow.picture.Assign(imgsIco.PNGByName['Exclamacao2.png']); 5: imgShow.picture.Assign(imgsIco.PNGByName['Cancelar.png']); 6: imgShow.picture.Assign(imgsIco.PNGByName['Erro.png']); end; Left := Screen.Width - ClientWidth; if tmRect.Top = -2 then tmAltura := 30; // Pega o top final xTop := Screen.Height - ClientHeight - tmAltura; // Pega o top inicial xIniTop := Screen.Height + ClientHeight + tmAltura; Top := xIniTop; case vTrans of 0: begin // Subindo for I := xIniTop downto xTop do begin Top := Top - 1; Show; Update; Application.ProcessMessages; end; // Espera TContad.Enabled := True; while vCont < 3 do Application.ProcessMessages; // Descendo for I := xIniTop downto xTop do begin Top := Top + 1; Show; Update; Application.ProcessMessages; Sleep(5); end; end; 1: begin Top := xTop; AlphaBlend := True; AlphaBlendValue := 0; Show; for I := 0 to 255 do AlphaBlendValue := I; TContad.Enabled := True; while vCont < 3 do Application.ProcessMessages; for I := 255 downto 0 do AlphaBlendValue := I; end; end; end; vFim := True; end; Self.Terminate; if Terminated then TerminateThread(Self.Handle, 0); end; end.

pior que ainda não resolveu... To tentando de N formas diferentes mas o erro persiste.. =/

gnt achei um exemplo de Thread... até q é mais fácil q eu imaginava... agora vo tenta reescrever esse código. http://www.4shared.com/file/JYmY8ggM/Usand...read_part1.html

eu tava lendo algo assim mesmo.. mas não encontrei como encerrar a Thread.. Você sabe como?

Aqui o link pro meu código gnt.. n coloquei o .exe por isso vai ta levinho.. Detalhe q to usando o Delphi 2010 http://www.4shared.com/file/cBG22SNe/ShowM...eBonitinho.html

beleza , vo colocar o projetinho num .zip da vida em um provedor e logo posto ele aqui

Bom dia pessoal tudo bem com vocês? Gente, estou apredendo agora sobre Thread com Delphi e fui fazer um sisteminha que sempre quis usando esse tipo de processo. Que seria uma alerta estilo MSN (aquelas no canto inferior da tela). Porém quando eu fecho o meu sistema de teste ele da a seguinte mensagem de erro: alguém já teve esse problema ou sabe o porque dele? qualquer coisa disponibilizo o código fonte da minha aplicação... vlw gnt

Gostaria de saber se tem uma forma de fazer um for que pegue os apenas os componentes que estão dentro de um determinado controle (Form, Panel, etc...). Por exemplo quero pegar apenas as imagens que estão dentro de um panel. Ao invez de fazer for I := 0 to ComponentCount do if Components[I] is TImage then if Components[I].parent is TPanel then.... fazer um simples for I := 0 to Control.ComponentCount do if Control.Components[I] is TImage then entendem?? Ele passa na compilação mas fala q não tem nem um componente dentro do panel... Não entendo o porque... Mas se alguém souber e puder me ajudar muito obrigado!! Economizaria muitas linhas de código.

Opa e como, agora é só estudar um pouco esses arquivos autorum.inf e conseguir fazer o sistema. ^^

Alguém sabe como fazer um programa para copiar automaticamente um determinado arquivo para um dispositivo removivel assim que ele for inserido na máquina? Não quero fazer víruz nem nada do tipo.. É que um dos sistemas que desenvolvo vai ser portatil.. Porém na empresa ele deve estar no PenDrive, para que ele possa executar outra parte do sistema mais pra frente.. Porém não quero que o cliente fassa isso manualmente.. Alguém sabe se tem alguma forma de fazer um programinha ou mexer no registro ou .bat para isso? De preferência programa já que estou no tópico de Delphi e Kylix não é? ^^'... Obrigado a todos..

Mas n tem nem uma forma dele fazer o case com a string inteira mesmo? tem que converter ela em char? só assim?

Cara, foi mal... Li o tópico mas na correria pensei q já tinha respondido! Era isso mesmo que eu precisava. Eu queria aprender a fazer um na unha mas esse também pelo visto serve. Brigadão Jhonasd ^^

Opa tudo bem pessoal? Gostaria de saber se isso existe e se existe como faze-lo. Seguinte... Tenho uma rotina que usa uns 32 formulários, porém a unit já está com mais de 3000 linhas de programação por que cada uma delas tem procedures próprias. E eu tenho que ficar fazendo case pra dependendo da condição executar determinado formulário com determinada procedure. Vocês sabem se existe como eu associar esses 32 formulários as rotinas, os componentes de dentro dos formulários em um único array de um form só? Para eu não precisar usar esses montes de array? obrigado a todos..

Brigadão Jhonas!!! Briaadão por sanar mais essa dúvida de tantas q eu já postei ^^'..

Então se ele for 0 (par) ele é True caso contrário ele é False?

beleza to dando uma olhada, é um códig em C# ou né?