При отправке на фтп BMP портится

@batmanrider · Регистрация: 20.09.2011

Author24 — интернет-сервис помощи студентам

В графике мало кто сидит, что плохо и я пишу тут, если не - перенесите.
У меня редактируется с помощью канваса битмап, отредактированное(и сохранённое) изображение отправляется на фтп сервер и в конце вылазиет ссылка на картинку.
For example, fastdl.goodluckwith.us/mem/xEIUVBKGPEbzgt93BLHPTgetmemru.bmp
Ну как так?Либо помогите прямо в передаче картинки конвертировать в jpg(пытался, гугл не помогает x( )

@~~AndyZorg~~ · 07.11.2011, 06:51

Код, сохраняющий и отправляющий картинку где? Без кода что мы тут все будем гадать?

@batmanrider · 07.11.2011, 07:54 **[ТС]**

Секундочку...
Отправка:

Delphi

procedure TForm2.ftpconnect();
var lol:String;
begin
  idFTP1.Host:='1'; //FTP-сервер
  idFTP1.Port:=21; //порт ФТП сервера
  idFTP1.Username:='2';
  idFTP1.Password:='3';
  idFTP1.Connect;
  if idFTP1.Connected=true then
  begin
    lol:=randomname;
    idFTP1.ChangeDir('/public_html/mem');
    idFTP1.Put(SaveDialog1.Filename+'.bmp',lol+'getmemru.bmp', true);
    idFTP1.Disconnect;
    Form4.Show;
    Form4.Edit1.Text:='fastdl.goodluckwith.us/mem/'+lol+'getmemru.bmp';
   end;
end;

Сохранение:

Delphi

procedure TForm2.Button1Click(Sender: TObject);
begin
  With Image1.Canvas do
  begin
    Image1.Canvas.Font.Height:=14;
    Image1.Canvas.Font.Style:=[];
    Image1.Canvas.Font.Color:=clWhite;
    Image1.Canvas.Brush.Style:=bsClear;
    Image1.Canvas.TextOut(1,385,'text');
  end;
SaveDialog1.Execute;
Image1.Picture.Bitmap.SaveToFile(SaveDialog1.Filename+'.bmp');
showmessage('Подождите, идёт загрузка файла на сервер.');
ftpconnect();
end;

Добавлено через 42 минуты
Так поможешь?

@~~AndyZorg~~ · 07.11.2011, 08:27

Я не работал с этим компонентом, но у меня вот такое предположение, у вас, скорее всего, режим асинхронный. Т.е. надо ждать, пока файл полностью загрузится - ловить событие idFTP1.OnComplete или что-то в этом роде... Или переключиться в синхронный режим. Это все мое ИМХО - т.к. с этим компонентом не работал...

Добавлено через 2 минуты
И еще. Версия Indy какая у Вас?

@batmanrider · 08.11.2011, 17:36 **[ТС]**

Не знаю, в дельфи вкладки Indy сами были установлены.Версия 2009.

Добавлено через 22 часа 44 минуты
Я так понял толком никто не поможет х(

@~~AndyZorg~~ · 08.11.2011, 18:45

Сообщение от batmanrider

Не знаю, в дельфи вкладки Indy сами были установлены.Версия 2009.

Добавлено через 22 часа 44 минуты
Я так понял толком никто не поможет х(

Файл после сохранения нормальный? Если да, тогда значит портится при отправке. В сети погуглил, нашел несколько высказываний, что Indy 9 версии глючит. Я этой библиотекой не пользуюсь, поэтому предположил, где у Вас могут быть проблемы.

@batmanrider · 09.11.2011, 16:31 **[ТС]**

Да, сохраняет нормально.

Добавлено через 19 часов 3 минуты
uuuuuuuuup

@batmanrider · 16.11.2011, 09:48 **[ТС]**

Пожалуйста, помогите, мне теперь уже на экзамен нужно!!

@~~AndyZorg~~ · 16.11.2011, 16:07

Выкладывай код. Давай адрес фтп. Будем помогать. Только сегодня свободен. Завтра - завал будет...

@batmanrider · 17.11.2011, 19:34 **[ТС]**

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, Jpeg, SysUtils;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    IdFTP1: TIdFTP;
    CheckBox1: TCheckBox;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ftpconnect();
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  img: TPicture;
  using: Integer;
 
implementation
 
uses Unit3, Unit1, Unit4;
 
{$R *.dfm}
 
 
function randomname:string;
var
S:String;
i,iloop:integer;
begin
Result:='';
S:='QWERTYUIOPASDFGHJKLZXCVBNM123456789qwertyuasdfghjklzxcvbnm';
For i:=0 To 20 do
begin
Randomize;
iloop:=Random(length(s));
Result:=Result+S[ILOOP];
end;
end;
 
procedure TForm2.ftpconnect();
var lol:String;
begin
  idFTP1.Connect;
  if idFTP1.Connected=true then
  begin
    lol:=randomname;
    idFTP1.ChangeDir('/public_html/mem/');
    idFTP1.Put(SaveDialog1.Filename+'.bmp',lol+'getmemru.bmp', true);
    idFTP1.Disconnect;
    Form4.Show;
    Form4.Edit1.Text:='fastdl.goodluckwith.us/mem/'+lol+'getmemru.bmp';
   end;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  With Image1.Canvas do
  begin
    Image1.Canvas.Font.Height:=14;
    Image1.Canvas.Font.Style:=[];
    Image1.Canvas.Font.Color:=clWhite;
    Image1.Canvas.Brush.Style:=bsClear;
    Image1.Canvas.TextOut(1,385,'memGen by trace - getmem.ru');
  end;
SaveDialog1.Execute;
Image1.Picture.Bitmap.SaveToFile(SaveDialog1.Filename+'.bmp');
if Checkbox1.Checked=true then
begin
  showmessage('Подождите, идёт загрузка файла на сервер.');
  ftpconnect();
end;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  With Image1.Canvas do
  begin
    if Edit1.GetTextLen=21 then
    begin
      Button2.Caption:='Вставить 2 строку';
      Edit1.Visible:=false;
      Edit3.Visible:=true;
      Image1.Canvas.Font.Color:=clWhite;
      Image1.Canvas.Pen.Color:=clBlack;
      Image1.Canvas.Pen.Width:=1;
      Image1.Canvas.Font.Style:=[fsBold];
      Image1.Canvas.Font.Height:=32;
      Image1.Canvas.Brush.Style:=bsClear;
      Image1.Canvas.TextOut(60,50,Edit3.text);
    end;
    Image1.Canvas.Font.Color:=clWhite;
    Image1.Canvas.Pen.Color:=clBlack;
    Image1.Canvas.Pen.Width:=1;
    Image1.Canvas.Font.Style:=[fsBold];
    Image1.Canvas.Font.Height:=32;
    Image1.Canvas.Brush.Style:=bsClear;
    Image1.Canvas.TextOut(60,20,Edit1.text);
   end;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
begin
  With Image1.Canvas do
  begin
    if Edit1.GetTextLen=21 then
    begin
      Button3.Caption:='Вставить 2 строку';
      Edit2.Visible:=false;
      Edit4.Visible:=true;
      Image1.Canvas.Font.Color:=clWhite;
      Image1.Canvas.Pen.Color:=clBlack;
      Image1.Canvas.Pen.Width:=1;
      Image1.Canvas.Font.Style:=[fsBold];
      Image1.Canvas.Font.Height:=32;
      Image1.Canvas.Brush.Style:=bsClear;
      Image1.Canvas.TextOut(60,340,Edit4.text);
    end;
    Image1.Canvas.Font.Color:=clWhite;
    Image1.Canvas.Pen.Color:=clBlack;
    Image1.Canvas.Pen.Width:=1;
    Image1.Canvas.Font.Style:=[fsBold];
    Image1.Canvas.Font.Height:=32;
    Image1.Canvas.Brush.Style:=bsClear;
    Image1.Canvas.TextOut(60,310,Edit2.text);
   end;
end;
 
 
 
procedure TForm2.Button4Click(Sender: TObject);
begin
Edit3.Text:='';
Edit4.Text:='';
Form3.Show;
using:=Form3.Listbox1.ItemIndex;
if using = 0 then
Image1.Picture.LoadFromFile('templates/omskBird.bmp');
if using = 1 then
Image1.Picture.LoadFromFile('templates/angryWkololo.bmp');
if using = 2 then
Image1.Picture.LoadFromFile('templates/penguinSocioFob.bmp');
if using = 3 then
Image1.Picture.LoadFromFile('templates/FilosoRaptor.bmp');
if using = 4 then
Image1.Picture.LoadFromFile('templates/MadWolf.bmp');
end;
 
 
 
end.

host:=fastdl.goodluckwith.us
username:=u422371910
password:=i034h6Zcx
port:=21

Добавлено через 15 минут
Вчера не смог, ко мне девушка пришла :3
Экзамен в понедельник, остальные задачи сам решил.

@~~AndyZorg~~ · 17.11.2011, 19:52

Прошу же Вас, ПРИКРЕПИТЕ проект!!! Расширенный режим ответа - прикрепить файл.

@batmanrider · 17.11.2011, 20:09 **[ТС]**

Большой объём файла.
Закидываю - http://zalil.ru/32077234

@~~AndyZorg~~ · 17.11.2011, 22:55

Да уж. Понаписали Вы тут... Вот Вам более похожее на программу. Еще есть места для обработки напильником.

@batmanrider · 18.11.2011, 19:21 **[ТС]**

Спасибо.Не могли бы вы ещё с конвертацией bmp 2 jpeg помочь?В гугле много, но 50% не того, а остальное не работает толком, как надо.Качесто jpg = 70 примерно.А, да, если вы разбираетесь в канвасе, как сделать обводку тексту?

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
		1
	При отправке на фтп BMP портится 07.11.2011, 06:24. Показов 1518. Ответов 13 Метки нет (Все метки) В графике мало кто сидит, что плохо и я пишу тут, если не - перенесите. У меня редактируется с помощью канваса битмап, отредактированное(и сохранённое) изображение отправляется на фтп сервер и в конце вылазиет ссылка на картинку. For example, fastdl.goodluckwith.us/mem/xEIUVBKGPEbzgt93BLHPTgetmemru.bmp Ну как так?Либо помогите прямо в передаче картинки конвертировать в jpg(пытался, гугл не помогает x( ) 0

@~~AndyZorg~~ Заблокирован
	07.11.2011, 06:51	2
	Код, сохраняющий и отправляющий картинку где? Без кода что мы тут все будем гадать? 0

@~~AndyZorg~~ Заблокирован
	07.11.2011, 08:27	4
	Я не работал с этим компонентом, но у меня вот такое предположение, у вас, скорее всего, режим асинхронный. Т.е. надо ждать, пока файл полностью загрузится - ловить событие idFTP1.OnComplete или что-то в этом роде... Или переключиться в синхронный режим. Это все мое ИМХО - т.к. с этим компонентом не работал... Добавлено через 2 минуты И еще. Версия Indy какая у Вас? 0

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
	08.11.2011, 17:36 [ТС]	5
	Не знаю, в дельфи вкладки Indy сами были установлены.Версия 2009. Добавлено через 22 часа 44 минуты Я так понял толком никто не поможет х( 0

@~~AndyZorg~~ Заблокирован
	08.11.2011, 18:45	6
	Сообщение от batmanrider Не знаю, в дельфи вкладки Indy сами были установлены.Версия 2009. Добавлено через 22 часа 44 минуты Я так понял толком никто не поможет х( Файл после сохранения нормальный? Если да, тогда значит портится при отправке. В сети погуглил, нашел несколько высказываний, что Indy 9 версии глючит. Я этой библиотекой не пользуюсь, поэтому предположил, где у Вас могут быть проблемы. 0

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
	09.11.2011, 16:31 [ТС]	7
	Да, сохраняет нормально. Добавлено через 19 часов 3 минуты uuuuuuuuup 0

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
	16.11.2011, 09:48 [ТС]	8
	Пожалуйста, помогите, мне теперь уже на экзамен нужно!! 0

@~~AndyZorg~~ Заблокирован
	16.11.2011, 16:07	9
	Выкладывай код. Давай адрес фтп. Будем помогать. Только сегодня свободен. Завтра - завал будет... 0

@~~AndyZorg~~ Заблокирован
	17.11.2011, 19:52	11
	Прошу же Вас, ПРИКРЕПИТЕ проект!!! Расширенный режим ответа - прикрепить файл. 0

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
	17.11.2011, 20:09 [ТС]	12
	Большой объём файла. Закидываю - http://zalil.ru/32077234 0

	18.11.2011, 19:21

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
	18.11.2011, 19:21 [ТС]	14
	Спасибо.Не могли бы вы ещё с конвертацией bmp 2 jpeg помочь?В гугле много, но 50% не того, а остальное не работает толком, как надо.Качесто jpg = 70 примерно.А, да, если вы разбираетесь в канвасе, как сделать обводку тексту? 0