EXPORTAR | IMPORTAR CAMPO BLOB(IMAGEM) ENTRE CLIENTDATASET´s
29/04/2015
0
Tenho uma aplicação que coleta dados através de uma aplicação mobile e depois preciso enviar para um outro banco
Sempre fiz isto normalmente, mas agora preciso de enviar uma informação de foto CAMPO BLOB, Alguem sabe como fazer ?
o codigo abaixo funciona blz, mas como trocar informação com campo blobo ?
dms.CDT_Fotopro.Active := True;
DMS.CDT_Fotopro.Insert;
dms.CDT_FotoproCODIGO.AsInteger := dm.qry_foto.FieldByName('CODIGO').AsInteger;
dms.CDT_FotoproCODBARRA.AsString := inttostr(dm.qry_foto.FieldByName('CODIGO').AsInteger);
dms.CDT_FotoproCODKEY.AsString := dm.qry_foto.FieldByName('CODKEY').AsString;
DMS.CDT_Fotopro.ApplyUpdates(0);
DM.qry_foto.Next;
como seria com campoblob
dms.CDT_Fotopro.Active := True;
DMS.CDT_Fotopro.Insert;
dms.CDT_FotoproCODIGO.AsInteger := dm.qry_foto.FieldByName('CODIGO').AsInteger;
dms.CDT_FotoproCODBARRA.AsString := inttostr(dm.qry_foto.FieldByName('CODIGO').AsInteger);
dms.CDT_FotoproCODKEY.AsString := dm.qry_foto.FieldByName('CODKEY').AsString;
dms.CDT_FotoproFOTO???????????????????????????????
DMS.CDT_Fotopro.ApplyUpdates(0);
DM.qry_foto.Next;
Agradeço a todos
Sempre fiz isto normalmente, mas agora preciso de enviar uma informação de foto CAMPO BLOB, Alguem sabe como fazer ?
o codigo abaixo funciona blz, mas como trocar informação com campo blobo ?
dms.CDT_Fotopro.Active := True;
DMS.CDT_Fotopro.Insert;
dms.CDT_FotoproCODIGO.AsInteger := dm.qry_foto.FieldByName('CODIGO').AsInteger;
dms.CDT_FotoproCODBARRA.AsString := inttostr(dm.qry_foto.FieldByName('CODIGO').AsInteger);
dms.CDT_FotoproCODKEY.AsString := dm.qry_foto.FieldByName('CODKEY').AsString;
DMS.CDT_Fotopro.ApplyUpdates(0);
DM.qry_foto.Next;
como seria com campoblob
dms.CDT_Fotopro.Active := True;
DMS.CDT_Fotopro.Insert;
dms.CDT_FotoproCODIGO.AsInteger := dm.qry_foto.FieldByName('CODIGO').AsInteger;
dms.CDT_FotoproCODBARRA.AsString := inttostr(dm.qry_foto.FieldByName('CODIGO').AsInteger);
dms.CDT_FotoproCODKEY.AsString := dm.qry_foto.FieldByName('CODKEY').AsString;
dms.CDT_FotoproFOTO???????????????????????????????
DMS.CDT_Fotopro.ApplyUpdates(0);
DM.qry_foto.Next;
Agradeço a todos
.jpg "Nilson Jr")
Nilson Jr
Curtir tópico
+ 0
Responder
Posts
30/04/2015
Thiago Santana
Imagem := TFileStream.Create(OpenDialog.FileName, fmOpenRead or fmShareDenyWrite); dms.Edit; dms.CDT_Fotopro.LoadFromStream(Imagem);
Usando ClientDataSet altere a propriedade ResolveToDataSet do TDataSetProvider para True.
Responder
30/04/2015
Nilson Jr
Foi Resolvido, Obrigado
Porem as imagens que são gravadas no SQlite(PNG) estão sendo gravadas no Firebird tbm como PNG, e preciso gravalas como JPG.
Como seria feito isto ?
Mesmo tentando converter para BMP ESTA SENDO GRAVADA PARA PNG
if dms.cdt_Faux.Eof then
begin
image := Tmemorystream.Create;
bmp := tbitmap.Create;
dm.qry_fotoFOTO.SaveToStream(IMAGE);
bmp.LoadFromStream(IMAGE);
dms.CDT_Fotopro.Active := True;
DMS.CDT_Fotopro.Insert;
dms.CDT_FotoproCODIGO.AsInteger := dm.qry_foto.FieldByName('CODIGO').AsInteger;
dms.CDT_FotoproCODBARRA.AsString := inttostr(dm.qry_foto.FieldByName('CODIGO').AsInteger);
dms.CDT_FotoproCODKEY.AsString := dm.qry_foto.FieldByName('CODKEY').AsString;
dms.CDT_FotoproDATAIMG.asdatetime := dm.qry_foto.FieldByName('DATA').ASDATETIME;
dms.CDT_FotoproFOTO.Assign(bmp); // SÓ QUE GRAVA PNG
dms.CDT_FotoproDESCRICAO.AsString := dm.qry_foto.FieldByName('DESCRICAO').AsString;
dms.CDT_FotoproLATITUDE.AsString := dm.qry_foto.FieldByName('LATITUDE').AsString;
dms.CDT_FotoproLONGITUDE.AsString := dm.qry_foto.FieldByName('LONGITUDE').AsString;
DMS.CDT_Fotopro.ApplyUpdates(0);
end;
DM.qry_foto.Next;
Porem as imagens que são gravadas no SQlite(PNG) estão sendo gravadas no Firebird tbm como PNG, e preciso gravalas como JPG.
Como seria feito isto ?
Mesmo tentando converter para BMP ESTA SENDO GRAVADA PARA PNG
if dms.cdt_Faux.Eof then
begin
image := Tmemorystream.Create;
bmp := tbitmap.Create;
dm.qry_fotoFOTO.SaveToStream(IMAGE);
bmp.LoadFromStream(IMAGE);
dms.CDT_Fotopro.Active := True;
DMS.CDT_Fotopro.Insert;
dms.CDT_FotoproCODIGO.AsInteger := dm.qry_foto.FieldByName('CODIGO').AsInteger;
dms.CDT_FotoproCODBARRA.AsString := inttostr(dm.qry_foto.FieldByName('CODIGO').AsInteger);
dms.CDT_FotoproCODKEY.AsString := dm.qry_foto.FieldByName('CODKEY').AsString;
dms.CDT_FotoproDATAIMG.asdatetime := dm.qry_foto.FieldByName('DATA').ASDATETIME;
dms.CDT_FotoproFOTO.Assign(bmp); // SÓ QUE GRAVA PNG
dms.CDT_FotoproDESCRICAO.AsString := dm.qry_foto.FieldByName('DESCRICAO').AsString;
dms.CDT_FotoproLATITUDE.AsString := dm.qry_foto.FieldByName('LATITUDE').AsString;
dms.CDT_FotoproLONGITUDE.AsString := dm.qry_foto.FieldByName('LONGITUDE').AsString;
DMS.CDT_Fotopro.ApplyUpdates(0);
end;
DM.qry_foto.Next;
Responder
Clique aqui para fazer login e interagir na Comunidade :)