Соединение 2х картинок

[mihab2009]

Здравствуйте! Подскажите пожалуйста как можно соединить две картинки одинакового размера, чтобы получилось примерно вот так: Заранее спасибо

[SalasAndriy]

думаю как-то вот так:

procedure ImagePlus(BMP1, BMP2: TBitmap; var BMPNew: TBitmap);
begin
  BMPNew.Width:= BMP1.Width + BMP2.Width;
  BMPNew.Height:= BMP1.Height;

  BMPNew.Canvas.Draw(0, 0, BMP1);
  BMPNew.Canvas.Draw(BMP1.Width, 0, BMP2);
end;

[Пепел Феникса]

а поиск слабо?
я выкладывал пример.
(рядом тема была)
http://programmersforum.ru/attachmen...7&d=1247070266
EXE не запускать(тот что в архиве...если есть не помню)
компиль из сорцов

[mihab2009]

SalasAndriy, Пепел Феникса большое спасибо, теперь разобрался.
У меня еще вот такой вопрос, никак не могу понять: функция recognize посылает картинку на сервер, после того как она выполняется, программа больше не может перезаписать картинку так как файл занят, подскажите пожалуйста как его можно закрыть или удалить, пробовал DeleteFile(fileName) - не удаляет. И если закомментить строку "multi.AddFile('file',filename,ftyp e);", то все нормально перезаписывает.

function recognize(filename: string; apikey: string; is_phrase: boolean;
is_regsense: boolean; is_numeric: boolean; min_len: integer;
 max_len: integer): string;
var
ftype,tmpstr,captcha_id: String;
i: integer;
http: TIdHTTP;
multi: Tidmultipartformdatastream;
begin
if FileExists(filename)=false then begin result:='ERROR: file not found'; exit; end;

ftype:='image/pjpeg';
if strpos(Pchar(filename),'jpg')<>nil then ftype:='image/pjpeg';
if strpos(Pchar(filename),'gif')<>nil then ftype:='image/gif';
if strpos(Pchar(filename),'png')<>nil then ftype:='image/png';

multi:=Tidmultipartformdatastream.Create;
multi.AddFormField('method','post');
multi.AddFormField('key',apikey);
multi.AddFile('file',filename,ftype);
if is_phrase=true then multi.AddFormField('phrase','1');
if is_regsense=true then multi.AddFormField('regsense','1');
if is_numeric=true then multi.AddFormField('numeric','1');
if min_len>0 then multi.AddFormField('min_len',inttostr(min_len));
if max_len>0 then multi.AddFormField('max_len',inttostr(max_len));
http:=TIdHTTP.Create(nil);
tmpstr:=http.Post('http://ac-service.info/in.php',multi);
http.Free;
captcha_id:='';
if strpos(Pchar(tmpstr),'ERROR_')<>nil then begin result:=tmpstr; exit; end;
if strpos(Pchar(tmpstr),'OK|')<>nil then captcha_id:=AnsiReplaceStr(tmpstr,'OK|','');
if captcha_id='' then result:='ERROR: bad captcha id';
for i:=0 to 20 do
  begin
  Application.ProcessMessages;
  sleep(5000);
  http:=TIdHttp.Create(nil);
  tmpstr:=http.Get('http://ac-service.info/res.php?key='+apikey+'&action=get&id='+captcha_id);
  http.Free;
  if strpos(Pchar(tmpstr),'ERROR_')<>nil then begin result:=tmpstr; exit; end;
  if strpos(Pchar(tmpstr),'OK|')<>nil then
    begin
    result:=AnsiReplaceStr(tmpstr,'OK|','');
    exit;
    end;
  Application.ProcessMessages;
  end;
result:='ERROR_TIMEOUT';
end;

[Пепел Феникса]

попробуй поставить
multi.free;
после первого http.Free;
(просто вижу что далее он не используется)

[mihab2009]

Сообщение от Пепел Феникса

попробуй поставить
multi.free;
после первого http.Free;
(просто вижу что далее он не используется)

Все заработало, большое спасибо.