Está dando esse erro:
[Error] UFoto.pas(41): Incompatible types: 'String' and 'PChar'
SEU CÓDIGO:
Paulo,
eu faço o seguinte:
var xorigem,xdestino:string;
begin
OpenPictureDialog1.InitialDir:='';
OpenPictureDialog1.Filename:='';
if OpenPictureDialog1.execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
xorigem:=OpenPictureDialog1.filename;
xdestino:= application.ExeName;
xdestino:=
extractfilepath(xdestino)+'imagens\'+extractfilename(OpenPictureDialog1.File
name);
If not FileExists(xdestino) then
LINHA 41...copyfile(xorigem,xdestino);
destino:= 'imagens\'+extractfilename(OpenPictureDialog1.Filename);
xdestino:= PATH PARA GRAVAR...
PARA CARREGAR....
xdestino:= application.ExeName;
xdestino:=
extractfilepath(xdestino)+DM1.SqlQuery1.fieldbyname('pathpapelparede').AsStr
ing;
FcheckCtrl.Image1.Picture.LoadFromFile(xdestino);
Espero ter ajudado,
qualquer duvida,
Otavio
Cidreira/RS
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
