|
Вопрос # 5 723/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Написал я FTP клиент. Хочу добавить возможность таскать файлы (Drag&Drop). Помогите разобраться с перетаскиванием файла в само приложение и закачку на сервер.
 |
Вопрос задал: Karlosq (статус: Посетитель)
Вопрос отправлен: 6 ноября 2011, 20:37
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 18; последнее сообщение — 5 декабря 2011, 08:10; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 7 ноября 2011, 08:15 [#1]:
Цитата (Karlosq):
Помогите разобраться с перетаскиванием файла в само приложение
Ну, уж по этому сабжу в инете 100500 мильёнов примеров.
Цитата (Karlosq):
и закачку на сервер.
Я чойта не понял... Ты написал FTP-клиент, а закачку файлов на сервер не сделал? Чож это за клиент-то такой?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Karlosq (статус: Посетитель), 7 ноября 2011, 19:26 [#2]:
Файлы кидаются но по одному мне нужно сделать так чтобы сразу допустим 10 картинок можно было скинуть! Тык ните носом как это можно организовать! Заранее СПС!!!
|
|
|
min@y™ (статус: Доктор наук), 7 ноября 2011, 19:51 [#3]:
Плохо читал статьи. Там есть всё. Я уже писал примеры этого, Толяныч, ФАС!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Karlosq (статус: Посетитель), 7 ноября 2011, 23:05 [#4]:
Прошу прощенье! Да я нашел много примеров, но нет не одного примера использование WM_DROPFILES для FTP клиента!
Нашел только это более похоже но не получается правельно применить!
procedure TfrmMain.WMDROPFILES(var Msg: TMessage);
var
i, amount, size: integer;
Filename: PChar;
begin
inherited;
Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
for i := 0 to (Amount - 1) do
begin
size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
Filename := StrAlloc(size);
DragQueryFile(Msg.WParam, i, Filename, size);
listView1.items.add(StrPas(Filename));
StrDispose(Filename);
end;
DragFinish(Msg.WParam);
end;
P.S Понимаю что туплю, но помогите плиз!!!
|
|
|
min@y™ (статус: Доктор наук), 8 ноября 2011, 08:12 [#5]:
Цитата (Karlosq):
но нет не одного примера использование WM_DROPFILES для FTP клиента!
А эти две вещи никак не связаны.
Цитата (Karlosq):
Нашел только это более похоже но не получается правельно применить!
В примере пачка файлов кидается на форму, она их принимает и добавляет их имена с путями в ListView. Тебе нужно ListView заменить на TStringList, а уже после его заполнения начинать заливку файлов на FTP или что там тебе надо.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Karlosq (статус: Посетитель), 10 ноября 2011, 10:51 [#6]:
Может есть пример какой-нибудь?
|
|
|
min@y™ (статус: Доктор наук), 10 ноября 2011, 10:57 [#7]:
Цитата (Karlosq):
Может есть пример какой-нибудь?
По какому вопросу? А то у тя их тут 2 шт.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Karlosq (статус: Посетитель), 10 ноября 2011, 11:07 [#8]:
Пример кода для отправке на FTP файлов с помощью WM_DROPFILES
|
|
|
min@y™ (статус: Доктор наук), 10 ноября 2011, 11:41 [#9]:
Цитата (Karlosq):
Пример кода для отправке на FTP файлов с помощью WM_DROPFILES
Я ж писал, что
Цитата (min@y™):
эти две вещи никак не связаны.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Karlosq (статус: Посетитель), 10 ноября 2011, 12:27 [#10]:
min@y™ я понял что не связаны! У меня не получается сделать чтобы файлы с помощью мышки кидались на ФТП. Помоги плиз как это все прописать!
procedure TfrmMain.WMDROPFILES(var Msg: TMessage);
var
i, amount, size: integer;
Filename: PChar;
begin
inherited;
Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
for i := 0 to (Amount - 1) do
begin
size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
Filename := StrAlloc(size);
DragQueryFile(Msg.WParam, i, Filename, size);
listView1.items.add();
StrDispose(Filename);
end;
DragFinish(Msg.WParam);
end;
Используя этот код у меня кидается только ярлык без имени без путей!!
Спасай нужна помощь!
|
|
|
min@y™ (статус: Доктор наук), 10 ноября 2011, 13:11 [#11]:
Толяныыыыыыыыыыыыыыыыыыыыыч! Ну ты где???!!!111
Напиши кусок проги челу, я занят по самые помидоры!
Ношусь тут, как электровеник, НЕКОГДА!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Karlosq (статус: Посетитель), 11 ноября 2011, 20:50 [#12]:
Помогите Плиз!!
|
|
|
Karlosq (статус: Посетитель), 27 ноября 2011, 19:40 [#13]:
Написал я FTP клиент. Хочу добавить возможность таскать файлы (Drag&Drop). Помогите разобраться с перетаскиванием файла в само приложение и закачку на сервер.
|
|
|
min@y™ (статус: Доктор наук), 28 ноября 2011, 08:19 [#14]:
Ты издеваешься?
Ну вот же пример (выше).
Кинули файлы - запомнил в списке. Потом заливай на сервер.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Karlosq (статус: Посетитель), 1 декабря 2011, 20:01 [#15]:
min@y™ я вижу что для тебя это легко. Помоги мне я туплю у меня нечего не получается, я бы просто так суда бы не писал!!
|
|
|
min@y™ (статус: Доктор наук), 1 декабря 2011, 20:12 [#16]:
Цитата (Karlosq):
я вижу что для тебя это легко. Помоги мне я туплю у меня нечего не получается, я бы просто так суда бы не писал!!
Я не робот, я живой человек. У меня щас проблемы, времени нету, запара полная: 3 программы паралельно отлаживаю на оборудовании. Домой прихожу только спать. Спроси кого-нить другого. В инете примеров - туева хуча. И пойми, блин, это 2 разные задачи, их надо разделить. Сначала принял список файлов, а уже потом заводи закачку. И никак иначе!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Karlosq (статус: Посетитель), 4 декабря 2011, 14:20 [#17]:
Как избавится от этой ошибке "tprogressbar property out of range" в FTP клиенте?
Возникает при сбрасывание файла свыше 2GB
|
|
|
min@y™ (статус: Доктор наук), 5 декабря 2011, 08:10 [#18]:
Цитата (Karlosq):
Как избавится от этой ошибке "tprogressbar property out of range" в FTP клиенте?
Рассчитывать прогресс вручную, свойства Min и Max выставить в 0 и 100 соответственно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
