rebotea

não seria mais facil fazer já que estou a copiar a pasta de c:\clientes\1.................9 para \\172.16.8.104\clentes\1.................9 aqui a numeração vem de autonumeração edit1: diretorio origem (Dirlocal + 'Relatorios' ) diretorio destino (Dirdestino + 'Relatorios_1' ) RenameDir('diretorio destino', 'diretorio origem'); dirFile1 := (destino) Aqui precisava que passa-se a ser pasta "17" FillChar(Buffer, sizeof(Buffer), #0); p := @buffer; StrECopy(p, PChar(dirFile)); //nome da pasta a copiar FillChar(Fo, sizeof(Fo), #0); Fo.Wnd := Application.Handle; Fo.wFunc := FO_COPY; Fo.pFrom := @Buffer; Fo.pTo := PChar(dirFile1); //copia para aqui mas queria mudar o nome da pasta Fo.fFlags := 0; if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('Erro a copiar ficheiro imagens') RenameDir('diretorio origem ', 'diretorio destino');

Ok explinda melhor preciso copiar um diretorio com subpastas de um lado para o outro e renomear a mesma.. diretorio origem (Dirlocal + 'Relatorios' ) diretorio destino (Dirdestino + 'Relatorios_1' ) Obrigado

dirFile := (localAplicação N registo) exemplo pasta "12" dirFile1 := (destino) Aqui precisava que passa-se a ser pasta "17" FillChar(Buffer, sizeof(Buffer), #0); p := @buffer; StrECopy(p, PChar(dirFile)); //nome da pasta a copiar FillChar(Fo, sizeof(Fo), #0); Fo.Wnd := Application.Handle; Fo.wFunc := FO_COPY; Fo.pFrom := @Buffer; Fo.pTo := PChar(dirFile1); //copia para aqui mas queria mudar o nome da pasta Fo.fFlags := 0; if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('Erro a copiar ficheiro imagens')

Devido a ter um active X que não grava devidamente em Bmp,jpg etc. e assim pava ele directo para o report. Abraço

Eu utilizo o codigo abaixo para carregar as fotos do banco de dados. mas o que precisavar era mandar imprimir apartir do timage do form. Qualquer coisa do genero................ já que preciso com a melhor qualidade possivel Obrigado ...............................................

set der jeito deixo codigo que uso private ImagePath: String; ...... procedure TFHorar.DbImage1DblClick(Sender: TObject); var ImageFile, Path: String; begin inherited; self.horas_SUB.Edit; if (OpenPictureDialog2.Execute) and (OpenPictureDialog2.FileName <> '') then begin DbImage1.Picture.LoadFromFile(OpenPictureDialog2.FileName); Path := ExtractFilePath(OpenPictureDialog2.FileName); ImageFile := ExtractFileName(OpenPictureDialog2.FileName); horas_SUB.edit; ImageFile := 'Colab'+ DBEditEh1.text+'.jpeg' ; horas_SUB.FieldByName('Foto').AsString := ImageFile ; if Path <> ImagePath then DbImage1.Picture.SaveToFile(ImagePath + ImageFile); self.horas_SUB.post; end; end; procedure TFHorar.D_Horas_subStateChange(Sender: TObject); var ImageFile: String; begin inherited; if horas_SUB.State in [dsBrowse, dsOpening] then begin if horas_SUB.FieldByName('Foto').IsNull then DbImage1.Picture.Assign(nil) else begin ImageFile := ImagePath + horas_SUB.FieldByName('Foto').AsString; DbImage1.Picture.LoadFromFile(ImageFile); end; end; end; procedure TFHorar.FormShow(Sender: TObject); begin inherited; ImagePath := ExtractFilePath(Application.ExeName) + 'Fotos\'; OpenPictureDialog2.InitialDir := ImagePath; end;

Boas amigos sera possivel enviar a imagem do Timage directamente para o fast report? Timage Print »»»»»»»»> Picture1 fastreport? A que a imagem em casa tenho aplicar outra tecnica que me duplica as jpg. Obrigado var Bitmap: TBitmap; JPegImage: TJPegImage; begin Bitmap := TBitmap.Create; JPegImage := TJPegImage.Create; try Bitmap.Width := CNexIRViewer1.Width; Bitmap.Height := CNexIRViewer1.Height; CNexIRViewer1.PaintTo(Bitmap.Canvas.Handle, 0, 0); JPegImage.Assign(Bitmap); Image1.Canvas.Draw(0,0,JpegImage); finally JPegImage.Free;

Q_SubTRelFinal_1.First; while not Q_SubTRelFinal_1.Eof do begin begin Aqui precisava consultar o camp X da tabela e verificar se o campo esta vazio ou existe ou se necessita so ser actualizado na tabela destino Sub_TRelFinal_1.Append; else ??????????????????? Sub_TRelFinal_1.Edit; vou fazer um exemplo: Sub_TRelFinal_1.Post;

Apos o colega Jhonas me madar dar uma vista de olhos . a resposta veio assim. 172.16.8.104:C:\Program Funciona correctamente já que há necessidade de alterar no Initfile e tambem no BDE Administrator. Obrigado

boas amigos Poderei eu actualizar com rapidez todas as telas em access em cada tabela tem um campo de controlo necessita actualizar "y" ou seja : tenho a Tabela A e B Se a tabela A tiver campos registos "y" deve actualizar a Tabela B. e mais se o registo " nº" existir na tabel B Actualidar a mesma caso contrario Inserir registo B.edit B.insert??? else Edit ..... Post? alguém pode dar uma mão Obrigado

Boas amigos Tenho tentado trabalhar em rede com aplicação mas ela não deixa porque: tenho um colega que consegue desta maneira X\ tegg\Database\Maindb\task32cn.gdb X = (\\172.16.8.104) localmente funciona bem D:\Database\Maindb\task32cn.gdb teho instalado o firebird nos 2 pcs? \\172.16.8.104\tegg\ Database\Maindb\task32cn.gdb alguma ideia Obrigado Ml

1. há que registar os componentes com REGDLLSc Apos isso deve funcionar normante se adicionar há palete do ActiveX?? ou não acontece isso? Brigado

boas amigos continuo com um problema apos ir por varios caminhos se alguém poder dar uma ajuda era bem vinda. tenho 2 dll 1 deles e visual e troca informação com um 2º que não estou conseguindo por a funcionar sera que alguém pode dar uma mão . o primeiro trabalha com .jpg térmico o segundo e sdk de interfaçe que le e transfere valores entre os quais se e ºF ou ºC que necessito. se alguém poder junto fontes . http://www.4shared.com/file/thBMxY2G/carregactx.html

Boas amigos mais uma vez com perguntas chatas mas aqui vai. tenho 2 dll em que um e visual e outro não so serve de referençia ao visual (VieW(visual)) +(IRSD (omde e busca varios metodos)) Quanto ao Visual não há duvidas agora no IRSD esta dificil ir buscar as variaveis alquem pode dar uma mão. / *********************************************************************// // DispIntf: IImage2Disp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {D9DC4473-CCB9-46FF-A063-4D72B8495F29} // *********************************************************************// IImage2Disp = dispinterface ['{D9DC4473-CCB9-46FF-A063-4D72B8495F29}'] property TempUnit: Smallint dispid 24; property TempUnitStr: WideString readonly dispid 25; property DistUnitStr: WideString readonly dispid 26; como poderei chamar estas funções ? Obrigado

Boas amigos mais uma vez estou precisando efectuar um projecto que apos abrir a Image1 e Image2 essas mesmas imagens fosem adicionada ao Image3 . imaginamos que o Image1 e 2 tem 100x100 x2 = 200x100 logo a nossa Image3 sera de 200x100.. Sera possivel executar esta operação?? Obrigado

e isso que vou fazer Obrigado assim nunca deixo registos por Eliminar. Obrigado Sim ... se houver mesmo essa necessidade da tabela SubTRelFinal_sub_Med ter os mesmos dados da tabela TabelaBusca_Sub, é mais facil voce deletar ela toda e depois jogar todos os registros da tabela TabelaBusca_Sub, sem ter que ficar controlando as duas. abraço

existe alguma outra forma de saber se já existe algum valor na tabela destino? pelo que diz e mais facil eliminar os registos da tabela SubTRelFinal_sub_Med e depois inserir nos registos necessarios apartir da tabela origem? e isso? SubTRelFinal_sub_Med.first; frmDados.TabelaBusca_Sub.first; while not frmDados.TabelaBusca_Sub.Eof do begin SubTRelFinal_sub_Med.DeleteRecords(??); SubTRelFinal_sub_Med.Append ;

o que procurava fazer era isto. + SELECT * from Inspecoes_SUB_SUB_MEd where numeracao_sub=:numeracao_sub order by numeracao_sub_EQ; mas ainda me falta completar... O que necessitava fazer era se a frmDados.TabelaBusca_Sub tiver mais registos que SubTRelFinal_sub_Med iria efectuar so actualização de campos quando necessario inserir ( SubTRelFinal_sub_Med.edit else SubTRelFinal_sub_Med.Append ;) ou se a tabela SubTRelFinal_sub_Med continuar com mais registos que a tabela TabelaBusca_Sub elimina-se os mesmos? e possivel efectuar estas comparações? Obrigado

Amigos já algum tempo estou tentando trabalhar com Adoquerys em vez de usar umas Adoquery com "tabela Meste" e um TTable na tabela filha. mas muitas vezes faz falta usar 2 Adoquerys assim passo a expor meu problema tabela mestre //até aqui tudo bem SELECT * FROM TabelaBusca ORDER BY designação_Mat agora buscar o registo Mestre de forma a Inserir ou eliminar Registos na tabela filha não estou conseguindo . alguém pode dar uma ajuda.. obrigado SELECT TabelaBusca.designação_Mat, TabelaBusca_Sub.designação, TabelaBusca_Sub.valor, TabelaBusca_Sub.texto FROM TabelaBusca INNER JOIN TabelaBusca_Sub ON TabelaBusca.designação_Mat = TabelaBusca_Sub.designação_Mat;

eu estou so atualizando a tabela 1 com a tabela2 onde alguns campos são Memo. SubTRelFinal_sub.FieldByName('Observações').text := Q_SubTRelFinal_Sub.FieldByName('Observações').text;

estou trabalhando com um campo MEMO em basedados.mdb e mas quando tento copiar de um lado para o outro ele não traz dados ? alguma ideia? Obrigado SubTRelFinal_sub.FieldByName('Observações').text := Q_SubTRelFinal_Sub.FieldByName('Observações').text;

e isso ai amigo so que não funciona comigo. depois de compilar não retorna nenhum cliente . ses ActiveX; {$R *.DFM} function LDBUser_GetUsers(var UserBuffer: PSafeArray; DatabaseName: PChar; Options: Integer): Integer; stdcall; external 'MSLDBUSR.DLL'; function LDBUser_GetError(ErrorNo: Integer): PChar; stdcall; external 'MSLDBUSR.DLL'; procedure TformMenuPrincipal.RadioGroupOptionsClick(Sender: TObject); begin bActualizarClick(Self); end; procedure TformMenuPrincipal.bActualizarClick(Sender: TObject); var numUsuarios : Integer; UserBuffer : Variant; opcionSel : Integer; i : Integer; begin lsUsuarios.Items.Clear; UserBuffer := VarArrayCreate([1, 1], varOleStr); case RadioGroupOptions.ItemIndex of 0 : opcionSel := 1; 1 : opcionSel := 2; 2 : opcionSel := 4; 3 : opcionSel := 8; else opcionSel := 1; end; numUsuarios := LDBUser_GetUsers(PSafeArray(TVarData(UserBuffer).VArray), PChar(txtMDB.Text), opcionSel); if numUsuarios < 0 then MessageDlg(LDBUser_GetError(numUsuarios), mtError, [mbOK], 0) else begin if opcionSel = 8 then MessageDlg ('Nº de usuarios conectados: ' + IntToStr(numUsuarios), mtInformation, [mbok], 0) else begin for i := 1 to numUsuarios do begin with lsUsuarios.Items.Add do begin Caption := IntToStr(i); SubItems.Add(PChar(TVarData(UserBuffer).VPointer)); end; end; end; end; end; procedure TformMenuPrincipal.ButtonInfoClick(Sender: TObject); var UserBuffer: PSafeArray; begin LDBUser_GetUsers(UserBuffer, '', $B0B); end; procedure TformMenuPrincipal.bSelMDBClick(Sender: TObject); begin with OpenDialog do begin FileName := txtMDB.Text; if Execute then begin txtMDB.Text := FileName; bActualizarClick(Self); end; end; end; procedure TformMenuPrincipal.FormCreate(Sender: TObject); var i : integer; ruta : string; begin if ParamCount > 0 then begin ruta := ''; for i := 1 to ParamCount do begin if ruta = '' then ruta := ruta + ParamStr(i) else ruta := ruta + ' ' + ParamStr(i); end; txtMDB.Text := ruta; bActualizarClick(Self); end; end; procedure TformMenuPrincipal.LWEBClick(Sender: TObject); begin ShellExecute(Handle, Nil, PChar('http://www.ajpdsoft.com'), Nil, Nil, SW_SHOWNORMAL); end; procedure TformMenuPrincipal.bSalirClick(Sender: TObject); begin close; end; end.

Boas amigos como poderei saber quem esta logado ná minha base de dados já que varios utilizadores o fazem! uso o access bdados.mdb Obrigado

esta Resolvido Obrigado pela Ajuda procedure TfrmDados.ConectionBeforeConnect(Sender: TObject); const FileName = 'config.ini'; var vBanco : String; IniFileName : TIniFile; LBasedados : String; begin IniFileName := TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName); vBanco := Trim(IniFileName.ReadString('acesso','BDtrabalho','')); Dirlocal := Trim(IniFileName.ReadString('acesso','Pastrabalho','')); LBasedados := Dirlocal+'db\'+'base_dados.mdb'; frmPrincipal.Edit1.text := Dirlocal; Dirtrabalho := (ExtractFilePath(Application.ExeName)); if FileExists(LBasedados) then Conection.ConnectionString := vBanco else begin Application.MessageBox('Bade dados do servidor não encontrada vai trabalhar neste Computador!','Ligação Remota FALHOU'); vBanco := Trim(IniFileName.ReadString('acesso','BD_local','')); Dirlocal := Trim(IniFileName.ReadString('acesso','Pasta_local','')); frmPrincipal.Edit1.text := Dirlocal; Dirtrabalho := (ExtractFilePath(Application.ExeName)); Conection.ConnectionString := vBanco; end; IniFileName.Free;

em vez de except que outro comando poderia utilizar já que estou a pegar o erro em outro local . Aqui necessitava algo assim if FileExists (remote+'db\ado.mdb') then vBanco := Trim(IniFileName.ReadString('acesso','BancoRemto','')); Dirlocal := Trim(IniFileName.ReadString('acesso','PastasRemto','')); else vBanco := Trim(IniFileName.ReadString('acesso','banco','')); Dirlocal := Trim(IniFileName.ReadString('acesso','PastasLocais','')); . Obrigado