После моей старой темы про то как закачать файл на файлообменник и получить. Поступило несколько прозьб чтобы дать исходники когда напишу.
Вот и решил предоставить свою программку на обозрение публики.
Работает она по следующему принципу

1 Запускаем программу с именем файла в качестве параметра.
2 Программа закачивает файл на сервер и получает ссылку
3 Показывает окошко о успешной или неуспешной закачке
4 пишет ссылку в download_link.txt в папке с программой.

Не рекомендую закачивать файлы большого размера потомучто никаких прогрессбаров там нет.
Как самостоятельная программа она не имеет большой ценности так как на сайте рапиды есть более функциональный продукт.

Скачать - rapidshare.com/files/102585696/source.rar.html

Зеркало Slil.ru slil.ru/25623071

Вес - 96 кб

Если не компилируется
Indy 9 Компоненты http://rapidshare.com/files/103001866/indy9.0.18_source.zip.html


В архиве находится 2 папки bin и source. В source находятся исходники. В bin находится ексешник, bat файл и файл test.bin.

Лицензии нет как таковой

26 марта 2008 года

Готовый файл определяется как вирус потомучто сильно пожат упиксом.
--> вирус тотал <-- http://www.virustotal.com/ru/analisis/8939b8eb8fef8934f9b99a7c3d514912

-----
Md5 fcbb6c9c9a5029b24d70f2d67c7cca74

| Сообщение посчитали полезным:

залито на рапиду.
символично.

| Сообщение посчитали полезным:

К форуму приатачить нельзя это золотые правила которые нарушать не рекомендуется.

-----
Md5 fcbb6c9c9a5029b24d70f2d67c7cca74

| Сообщение посчитали полезным:

а перезалить на ифолдер или слил/залил.ру?
рапида капризная =)

| Сообщение посчитали полезным:

Зеркала:

File: source.rar

Filesize: 94.12 KB

link_deleted_by_forum_engine/files/4381391
www.megaupload.com/?d=AOH3W6Z5
www.zshare.net/download/9651209be252e2/
uploaded.to/?id=k9rerg
netload.in/dateif4267164564cd636465702c62b375980/source.rar.htm

-----
-=истина где-то рядом=-

| Сообщение посчитали полезным:

Вот бы такую но для ZippyShare

| Сообщение посчитали полезным:

hedgehot
Программить если умеешь, то напишешь и сам. Ничего сверхестественного не вижу. Возьми исходник автора топикастера и добавь/поправь пару-тройку строк.

-----
Computer Security Laboratory

| Сообщение посчитали полезным:

RU with OD ексешник http://rapidshare.com/files/103003323/rapidshareuploader_OD.exe.html
210 КБ
Вопрос: как вызвать OpenDialog на Winapi

-----
Md5 fcbb6c9c9a5029b24d70f2d67c7cca74

| Сообщение посчитали полезным:

Stack пишет:
Вопрос: как вызвать OpenDialog на Winapi

const
OFN_LONGNAMES = $00200000;
OFN_EXPLORER = $00080000;
OFN_FILEMUSTEXIST = $00001000;
OFN_PATHMUSTEXIST = $00000800;
OFN_HIDEREADONLY = $00000004;

type
TOpenFileName = packed record
lStructSize: DWORD;
hWndOwner: HWND;
hInstance: HINST;
lpstrFilter: PAnsiChar;
lpstrCustomFilter: PAnsiChar;
nMaxCustFilter: DWORD;
nFilterIndex: DWORD;
lpstrFile: PAnsiChar;
nMaxFile: DWORD;
lpstrFileTitle: PAnsiChar;
nMaxFileTitle: DWORD;
lpstrInitialDir: PAnsiChar;
lpstrTitle: PAnsiChar;
Flags: DWORD;
nFileOffset: Word;
nFileExtension: Word;
lpstrDefExt: PAnsiChar;
lCustData: LPARAM;
lpfnHook: function(Wnd: HWND; Msg: UINT; wParam: WPARAM;
lParam: LPARAM): UINT stdcall;
lpTemplateName: PAnsiChar;
end;

function GetOpenFileNameA(var OpenFile: TOpenFileName): Bool; stdcall;
external 'comdlg32.dll' name 'GetOpenFileNameA';

var
FileName : array[0..4095] of Char;
Inst, hWin : integer;

function OpenFile: string;
const
Filter = 'PE File (*.exe,*.dll)'#0'*.exe;*.scr;*.dll;*.ocx';
Title = 'Открыть файл...';
var
OpenFile : TOpenFileName;
begin
FillChar(OpenFile, SizeOf(TOpenFileName), 0);

with OpenFile do begin
lStructSize:= SizeOf(TOpenFileName);
hInstance:= Inst;
hWndOwner:= hWin;
lpstrFilter:= Filter;
nFilterIndex:= 3;
nMaxFile:= SizeOf(FileName);
lpstrFile:= FileName;
lpstrTitle:= Title;
Flags:= OFN_LONGNAMES or OFN_EXPLORER or OFN_FILEMUSTEXIST or
OFN_PATHMUSTEXIST or OFN_HIDEREADONLY;

if GetOpenFileNameA(OpenFile) = true then begin
result:=FileName;
end;
end;
end;

Что-то вроде того..

| Сообщение посчитали полезным:

Код работает только пришлось подкоректировать немножко

-----
Md5 fcbb6c9c9a5029b24d70f2d67c7cca74

| Сообщение посчитали полезным:

А нет ли у кого-нибудь случайно подобного сабжа на асме ?

| Сообщение посчитали полезным:

gsx300 пишет:
А нет ли у кого-нибудь случайно подобного сабжа на асме ?
Если бы был выложил
Недавно скачал masm - потренируюсь
Если что выйдет выложу.

-----
Md5 fcbb6c9c9a5029b24d70f2d67c7cca74

| Сообщение посчитали полезным: