(Resolvido) Gravar figura

[Alessandra (Jundiai)]

Eu preciso fazer uma rotina que, ao usuario clicar em um botão, abrirá uma opção para ele selecionar uma figura. Quando o usuario escolher a figura, o sistema terá que copiar essa figura para um outro diretório fixo, como c:\figuras, e deverá abrir um inputbox para o usuario digitar o nome da figura. Essa figura terá como nome o campo codigo do meu cadastro mais um nome que o usuario digitar.

ex. 00012009PARAFUSO

Estou utilizando o componente OpenPictureDialog1.

Alguém saberia me informar, como posso fazer para ao selecionar uma figura, o sistema faça uma copia da mesma em outro diretório com um nome determinado ??

[Churc]

de uma olhada

http://scriptbrasil.com.br/forum/index.php...amp;hl=CopyFile

CopyFile(PChar(OpenPictureDialog1.FileName), PChar('C:\Minha Pasta\' + Codigo + InputBox... + ExtractFileExt(OpenPictureDialog1.FileName)), False);

abrxx

Editado Julho 14, 2009 por Churc

[Alessandra (Jundiai)]

Muito obrigado, funcionou certinho.

Mas agora tenho uma outra duvida .....

O usuario grava quantas figuras ele quiser, sempre está gravando o codigo + um nome que ele digita, tudo bem.

Agora, eu estou fazendo um relatório, onde o sistema pegue o numero do pedido que está sendo impresso e va até esse diretório e traga o nome de todos os desenhos em que os cinco primeiros digitos e o numero desse pedido e apareça em um qrmemo.

Eu sei que tem que fazer um while (enquanto o arquivo tiver cinco primeiros digitos = o numero do pedido), e dentro do while coloca que o qrmemo.lines.add vai receber o nome do desenho.

Mas a minha duvida é : como vou fazer esse while, como vou pegar o nome de um arquivo dentro de um diretorio, porque se estivesse em uma tabela, era só fazer um while enquanto não for fim de arquivo. E assim, com arquivos em um diretório. Alguém pode me ajudar ?????????????

[Churc]

então...

da uma olhada neste post, utilize a funcao EnumFiles

http://scriptbrasil.com.br/forum/index.php...st&p=426589

Então no seu caso seria exemplo

var
  sl: TStringList;
  i: Integer;
begin
  sl := TStringList.Create;
  
  EnumFiles('CAMINHO DAS FIGURAS', '*.bmp', faanyfile - faDirectory, sl, False, False);
  
  //aqui o while ou o loop pegando sl[i] exemplo

  for i := 0 to sl.Count -1 do
  if Copy(LowerCase(sl[i]), 1, 4) = 'abcd' then
  qrmemo.lines.add(sl[i]);

 FreeandNil(sl);
end;

troque o .bmp pela extensao das imagens, se forem varias voce utiliza um EnumFile para cada extensão não dando um bClear para True senão ele apaga as que já foram pegas...

Se quiser adicionar o caminho junto, coloque o bIncludePath para True

abrax

Editado Julho 15, 2009 por Churc

[Alessandra (Jundiai)]

Para usar o enumfiles precisa de alguma biblioteca a mais, porque eu estou usando o delphi 2007 e ele não reconhece.

[Churc]

eee Alessandra, você nem viu o post que passei rs

Lá tinha o EnumFiles :)

procedure EnumFiles(szPath, szAllowedExt: String; iAttributes: Integer;
  Buffer: TStrings; bClear, bIncludePath: Boolean); StdCall;
var
  res: TSearchRec;
  szBuff: String;
begin
  if (bClear) then Buffer.Clear;
  szPath := IncludeTrailingBackslash(szPath);
  if (FindFirst(szPath + szAllowedExt, iAttributes, res) = 0) then
  begin
    repeat
      szBuff := res.Name;
      if ((szBuff <> '.') and (szBuff <> '..')) then
      if (bIncludePath) then
      Buffer.Add(szPath + szBuff) else
      Buffer.Add(szBuff);
    until FindNext(res) <> 0;
    FindClose(res);
  end;
end;

[Alessandra (Jundiai)]

Me desculpe, não é que eu não li, eu tinha lido o seu post, é serio.

É que, na verdade, como eu nunca tinha feito algo parecido com essa rotina, eu não entendi.

Mas, muito obrigado, valeu mesmo.

[Alessandra (Jundiai)]

beleza. Funcionou direitinho.

Mas......

O usuario também quer que apareça o desenho no relatório, então eu coloquei um componente QRImage no relatório, mas não estou conseguindo fazer aparecer o desenho impresso.

[Alessandra (Jundiai)]

Consegui colocar a figura no relatório, então estou postando aqui.

var

sl: TStringList;

i: Integer;

caminho, cliente : string;

begin

caminho := ExtractFilePath(Application.ExeName) + 'Figura\'; //variavel que guarda o caminho das figuras

cliente := copy(qclientecodigo.asstring,1,5)

s := TStringList.Create;

EnumFiles(caminho, '*.jpg', faanyfile - faDirectory, s, False, False);

for i := 0 to s.Count -1 do

if Copy(s, 1, 5) = cliente then

QRImage.Picture.LoadFromFile(caminho + s);