 |
|
02.03.2008, 22:17
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
С нами:
10018466
Репутация:
588
|
|
обработай ошибку, я просто для фтп компоненты не юзаю, поэтому хз 
там есть, что-то типо выполнения своих комманд? тогда выполни:
Код:
FtpQuote(pointer('MKD MYDIR"),pointer(buf),255);
|
|
|
03.03.2008, 11:53
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
С нами:
9598011
Репутация:
50
|
|
покажи плиз нга примерре я не догоню чегото
всё это сделать в коде у меня не получилось, наверное нехватает каких то библиотек, а в ручную всё нормально... вобщем так:
1. помещаешь на форму Image1 (TImage)
2. в свойстве Picture нажимаешь на точки
3. в открывшимся окне нажимаешь load
4. в диалоговом окне в поле вставляешь адрес картирки
http://forum.antichat.ru/antichat/pic/logo.gif
5. потом везде нажимаешь ОК
Примечание: нужно чтобы в IE были правильные насройки подключения к интернету, т.к. Delphi по молчанию берёт настройки именно от туда
|
|
|
|
03.03.2008, 13:35
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
С нами:
9926261
Репутация:
212
|
|
2 dos999. блин. надо как нибудь в коде потому что картинка постоянно меняется. то есть название у нее постоянно разное.
|
|
|
|
03.03.2008, 18:56
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
С нами:
9598011
Репутация:
50
|
|
ты имеешь в виду разное название файла? или просто разное содержание картинки?
|
|
|
|
03.03.2008, 19:13
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
С нами:
9926261
Репутация:
212
|
|
Сообщение от dos999
ты имеешь в виду разное название файла? или просто разное содержание картинки?
Разные картинки. Например 1.jpg, 2.jpg и т.д
|
|
|
|
03.03.2008, 19:59
|
|
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
С нами:
9659698
Репутация:
111
|
|
Freedom скозалбы что пишешь регер))
Берёшь страничку, парсишь её, находишь линку на картинку, потом вытворяешь с ней примерно такой код:
http:=TIdHTTP.Create(nil);
msimg := TMemoryStream.Create;
try
http.Get('http://sie.net/kartinko.jpg', msimg);
msimg.Position := 0;
finally
http.Free;
end;
end;
получается у тебя картико в потоке, потом добавляешь:
NewGraphic := TJpegImage.Create;
try
NewGraphic.LoadFromStream(msimg);
Image1.Picture.Graphic := NewGraphic;
finally
NewGraphic.Free;
end;
и получается картинко на формочке в имаге, в юзес не забудь jpeg добавить 
|
|
|
|
03.03.2008, 20:28
|
|
Участник форума
Регистрация: 08.11.2006
Сообщений: 167
С нами:
10265490
Репутация:
54
|
|
Добрый день. Пишу на делфях на чистом WinApi. Возникла проблема. Нужно в теле самой программы нести графический файл, после чего выгружать его в отдельный файл на диске. Подскажите, как это реализовать.
|
|
|
|
03.03.2008, 20:34
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
С нами:
9926261
Репутация:
212
|
|
Сообщение от Pir4tt
Freedom скозалбы что пишешь регер))
Берёшь страничку, парсишь её, находишь линку на картинку, потом вытворяешь с ней примерно такой код: получается у тебя картико в потоке, потом добавляешь: и получается картинко на формочке в имаге, в юзес не забудь jpeg добавить
Спасибо. Помогло.
Не регер а, программку для смены пароля на mail.ru а там картинка эта.
|
|
|
|
03.03.2008, 21:52
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами:
10139366
Репутация:
1502
|
|
Сообщение от x-treem
Добрый день. Пишу на делфях на чистом WinApi. Возникла проблема. Нужно в теле самой программы нести графический файл, после чего выгружать его в отдельный файл на диске. Подскажите, как это реализовать.
Что значит "нести"?
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
03.03.2008, 21:58
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
С нами:
10182506
Репутация:
1393
|
|
Сообщение от desTiny
Что значит "нести"?
Он наверное имел в виду в ресурсах его записать и потом из ресурсах на диск.
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
