[Viruss]

помоите!!!!
Прописываю:

SPD->InitialDir="D:\\GR2";
SPD->FileName=NameFoto->Text+".jpg";
Image1->Picture->SaveToFile(SPD->FileName);

но прога сохраняет в то место, откуда была открыта картинка...
прога работает если добавить:

SPD->Execute();

но тогда прога выкидывает окно для сохранения, а этого не надо!!!
как сделать так что бы прога сохраняла файл по указанному пути и не выводила окна???

[Viruss]

между фотками надо переключаться, хочу использовать компонент UpDown вкладка Win32, подскажите каким оператором пользоваться...

[Viruss]

помогите, очень надо....
Есть текст:

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TJPEGImage    *ptJpg=new TJPEGImage;
  Graphics::TBitmap  *ptBmp=new Graphics::TBitmap;
  ptJpg->LoadFromFile("a.jpg");  //Загружаем файл .jpg
  Canvas->Draw(0,0,ptJpg);  //Нприсуем исходное изображение
  ptBmp->Width=3*ptJpg->Width/4;  //Уменьшаем на 3/4
  ptBmp->Height=3*ptJpg->Height/4;
  ptBmp->Canvas->StretchDraw(Rect(0,0,ptBmp->Width,ptBmp->Height),ptJpg);  //Рисуем отмасштабированное изображение на канву
  Canvas->Draw(ptJpg->Width,0,ptBmp);  //Можем нарисовать измененное изображение  //(сдвинуто на ptJpg->Width вправо)
  ptJpg->Assign(ptBmp);
  ptJpg->CompressionQuality = 75; //Степень сжатия (качество) 1..100
  ptJpg->Compress();
  ptJpg->SaveToFile("a1.jpg");  //Можно изменить степень сжатия
  delete ptJpg;
  delete ptBmp;
}

Все работает правильно, но один касяк... ptJpg->LoadFromFile("a.jpg"); - эта функция воспринимает только имя файла, а если прописать путь к файлу, она работает некорректно.
Помогите!!!!!!!!!!!!!!

[Drongo]

а если прописать путь к файлу, она работает некорректно. »

Путь прописывается через двойной слеш, например:

Код:

C:\\MyFolder\\Test\\a.jpg

[Viruss]

Код:

void __fastcall TForm2::OtpClick(TObject *Sender)
{
FTP->UserID="xxx";
FTP->Password="xxx";
SPD->InitialDir="ftp://10.112.56.2//proga";
FTP->Host="ftp://10.112.56.2";
FTP->Connect();                   
FTP->ChangeDir("IT");
}

SPD->FileName=NameFoto->Text+".jpg";
Image1->Picture->SaveToFile(SPD->FileName);
FTP->Disconnect();

Кода проа пытыеться приконектиться к FTP... выкидывает ошибку...

[Viruss]

подскажите.... может для работы с FTP сервером какую-нибудь библиотеку надо подключить???

[Dr.Dark]

Вот для примера простой код который работает.

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	FTP->Host="XXX.XXX.XXX.XXX";
	FTP->Username="user";
	FTP->Password="password";
	FTP->Connect();
	FTP->Put("C:\\1.jpg", "1.jpg", 0);
	ShowMessage("Done");
}

Писал в билдере. Использовал компонент TIdFTP... Вот и всё...

[Viruss]

Есть прога, которая сжимает фото и отправляет на FTP сервер...

Код:

TJPEGImage *ptJpg=new TJPEGImage;
Graphics::TBitmap  *ptBmp=new Graphics::TBitmap;

ptJpg->LoadFromFile(OPD1->FileName); //Загружаем файл .jpg

ptBmp->Width=1.6*ptJpg->Width/4;   //Уменьшаем на 1/4
ptBmp->Height=1.6*ptJpg->Height/4;

ptBmp->Canvas->StretchDraw(Rect(0,0,ptBmp->Width,ptBmp->Height),ptJpg); //Рисуем отмасштабированное изображение на канву

ptJpg->Assign(ptBmp);

ptJpg->CompressionQuality = 50; //Степень сжатия (качество) 1..100
ptJpg->Compress();
puut=SPD->FileName+".jpg";

ptJpg->SaveToFile(SPD->FileName+".jpg");  //Можно изменить степень сжатия
delete ptJpg;

delete ptBmp;

фотография после сжатия сохраняется в ту же папку, откуда был оригинал...
а надо что бы она сохранялась в папку C:\TEMP. И после всех дествий необходимо очистить данную папку...