Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Как связать дельфу и WinRar   Найти похожие ветки 

 
NightPrivat   (2003-02-26 08:16) [0]

В общемзадача такая - есть прога, пост-робот, которая шлёт письма с вложенным файлом немеренных размеров.
Хотелось бы узнать , как запаковать эот файл перед отправкой.
Вручную не потянет, так как он постоянно обновляется

Заранее секс , Night.


 
NightPrivat   (2003-02-26 08:29) [1]

ЗЫ : Чуть не забыл!
Этот процесс не должен засорять монитор пользователя,
то есть быть полностью невидим...


 
Calm   (2003-02-26 09:02) [2]

c:\<winrar dir>\rar.exe a myfile.dat myarchive.rar -ep1

А еще очень сильно помогает rar /?


 
DOOMin   (2003-02-26 11:28) [3]

То что предлагает Calm как раз не будет невидимым и покажет консольное окно. А что обязятельно использовать RAR? Он же коммерческий. Насколько я знаю, существует dll, которая содержит паковщик и интерфейс к нему, но уверен, что это не бесплатно. Сходи на torry.net и просто скачай бесплатные компоненты дляч упаковки в zip или может еще в какой формат и пользуйся. Если хочешь не тормозить робот в момент упаковки, сделай просесс упаковки в отдельном потоке. Удачи


 
Alexandr B.   (2003-02-26 13:34) [4]

Вот например не засоряет экран

procedure TForm1.Button1Click(Sender: TObject);
var si:STARTUPINFO;
pi:PROCESS_INFORMATION;
xc:cardinal;
begin
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
si.wShowWindow := SW_HIDE;
si.dwFlags := STARTF_USESHOWWINDOW;

CreateProcess(nil,
{$ifdef home}
PCHAR("rar32 a test.zip "+"C:\Video\nge\nge-01.viv")
{$else}
PCHAR("rar32 a test.zip "+Application.EXENAME)
{$endif}
,nil,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,si,pi);
CloseHandle(Pi.hThread);
with tanimate.Create(self) do
begin
Parent := self;
Align := alClient;
BringToFront;
CommonAVI := aviCopyFiles;
Active := True;
StopFrame := 34;
while WaitForSingleObject(Pi.hProcess, 10) = WAIT_TIMEOUT do
Application.ProcessMessages;
free;
end;
if GetExitCodeProcess(Pi.hProcess,xc) then
showMessage(inttostr(xc));
CloseHandle(Pi.hProcess);
end;


к стати NORMAL_PRIORITY_CLASS - показывает приоритет программы.


 
REA   (2003-02-26 13:59) [5]

А зачем слать письма? Может лучше выложить на FTP?


 
Calm   (2003-02-26 14:44) [6]


> То что предлагает Calm как раз не будет невидимым и покажет
> консольное окно.

Извиняюсь, проглядел, что прога должная быть невидимой.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.058 c
1-29920
VID
2003-02-27 03:42
2003.03.10
достать иконки в стиле xп... большие.. 32х32... хочу :)


4-30192
Adolf
2003-01-18 14:28
2003.03.10
ShellAPI


3-29710
OneOfTheFew
2003-02-18 16:54
2003.03.10
Графы и Referential Integrity


1-29845
esa
2003-02-28 12:52
2003.03.10
Конвертор из DOC в HTML


14-30017
Романов Р.В.
2003-02-24 11:36
2003.03.10
Как вставить ресурс в орешник?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский