Bueno ya gracias a Eternal Idol he podido saber en donde estoy y pa donde quiero ir...
en las carpetas
bueno ahora lo que me pasa es lo siguiente, ya logre que me guarde las imagenes en una carpeta interna de mi aplicacion sin ningun problema esto lo hago de la siguiente manera
void __fastcall TForm2::Button2Click(TObject *Sender)
{
AnsiString a,b;
int tm;
char ubica[150],jpg[5],ax[30];
strcpy(ubica,Form1->diractual);
strcat(ubica,"\\imagenes\\");
strcpy(jpg,".jpg");
strcpy(Form1->tam[Form1->i].nombre,Edit1->Text.c_str());
strcpy(Form1->tam[Form1->i].doc,Edit2->Text.c_str());
strcpy(Form1->tam[Form1->i].tel,Edit3->Text.c_str());
strcpy(Form1->tam[Form1->i].direc,Edit4->Text.c_str());
strcat(ubica,Form1->tam[Form1->i].doc);
strcat(ubica,jpg);
Label5->Caption=ubica;
a=ubica;
strcpy(Form1->tam[Form1->i].dir_foto,a.c_str());
Form1->i++;
ShowMessage("Registro Guardado");
b=Form1->diractual;
SetCurrentDirectory(Form1->diractual);
Image1->Picture->LoadFromFile("imagenes\\foto.ico");
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Image1->Picture->SaveToFile(a);
}
Ahora quiero ver la imagen pues la direccion de la imagen la guardo en
Form1->tam
.dir_foto;
Image1->Picture->LoadFromFile(Form1->tam[0].dir_foto);
asi por ejemplo
pero me saca el siguiente error
Preoyect Proyect1.exe raised exception class EJPEG 'error # 53', Process Stopped use step run to continue
pero la verdad no se que sera porque si coloco la direccion manualmente no ocurren problemas...
espero que me puedan colaborar
de antemano gracias
Mostrar Mensajes
