 |
|
16.10.2009, 19:01
|
|
Познающий
Регистрация: 13.10.2009
Сообщений: 63
С нами:
8725016
Репутация:
13
|
|
Сообщение от mobilka
пришла идея-
s := SendFile('localhost', '/1.php', 'тут переменная какаято');
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Listbox1.Items.Add(ExtractFileName(opendialog1.Fil eName));
тоже чтото надо дописать
end;
end;
господа не стесняемся предлагаем решение
может поможет кто?
может поможет кто?
|
|
|
16.10.2009, 21:56
|
|
Участник форума
Регистрация: 25.10.2008
Сообщений: 215
С нами:
9233818
Репутация:
78
|
|
Всё работает. Респект!
|
|
|
|
16.10.2009, 22:22
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
мдауж
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
SendFile('localhost', '/1.php', opendialog1.FileName);
end;
end;
|
|
|
|
16.10.2009, 23:36
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от slesh
мдауж
Код:
procedure TForm1.Button2Click(Sender: Tlol);
begin
if OpenDialog1.Execute then
begin
SendFile('localhost', '/1.php', opendialog1.FileName);
end;
end;
Щас он к тебе в аську постучит :LOL:
|
|
|
|
17.10.2009, 14:43
|
|
Познающий
Регистрация: 13.10.2009
Сообщений: 63
С нами:
8725016
Репутация:
13
|
|
вот господа кое как с помощью вышеотписавшегося человека придал ей божеский вид. сделал кнопку загрузки файла и даже полосу (edit) ввода хоста. осталось прикрутить прогрессбар но это не в моих силах. кто может это сделать вот вам исходники
http://webfile.ru/4012376
|
|
|
|
17.10.2009, 15:29
|
|
Познающий
Регистрация: 13.10.2009
Сообщений: 63
С нами:
8725016
Репутация:
13
|
|
ну неужели никто не поможет?
|
|
|
|
17.10.2009, 15:42
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от mobilka
ну неужели никто не поможет?
Сын мой! Молись усерднее всевышнему, если на тебе нет греха, Аллах не оставит тебя....
|
|
|
|
17.10.2009, 18:33
|
|
Познающий
Регистрация: 13.10.2009
Сообщений: 63
С нами:
8725016
Репутация:
13
|
|
ну дык чего так никто и не поможет?
|
|
|
|
17.10.2009, 18:44
|
|
Постоянный
Регистрация: 20.03.2009
Сообщений: 564
С нами:
9023100
Репутация:
395
|
|
Сообщение от mobilka
осталось прикрутить прогрессбар но это не в моих силах
))))) сполз под стол ROFL
mobilka набери в поске - "delphi как прикрутить прогресс бар", а корректнее "delphi работа с прогресс баром" ну еще RTFM )
|
|
|
|
17.10.2009, 19:03
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
прикрутить прогрессбар несложно, берёшь гайку, отвёртки и прикручиваешь....
Если не можешь, обратись к сантехникам.
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Books
|
PSalm69 |
Избранное |
273 |
13.02.2016 01:24 |
|
Литература Delphi
|
Sams |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
2 |
19.03.2010 19:46 |
|
Virus.Win32.Induc.a или "Снова записки новичка"
|
_=(mac)=_ |
Защита ОС: вирусы, антивирусы, файрволы. |
5 |
24.08.2009 23:34 |
|
Форма и javascript, отправка файла
|
rcc0023 |
PHP |
9 |
24.08.2009 16:19 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
