HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 31.10.2009, 00:18
0ldbi4
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699

Репутация: 69
По умолчанию

Вспомнил про возможность сокрытия информации в потоке
type info >> file.xxx:stream1
не кто не знает как это реализовать на делфи?
 
Ответить с цитированием

  #2  
Старый 31.10.2009, 01:01
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


По умолчанию

Код:
var
 f:textfile;
 s:string;
begin
 assignfile(f, 'e:\test.txt:strem1');
 rewrite(f);
 write(f,'hello222222222');
 closefile(f);

 assignfile(f, 'e:\test.txt:strem1');
 reset(f);
 read(f,s);
 closefile(f);
 ShowMessage(s);
 
Ответить с цитированием

  #3  
Старый 31.10.2009, 01:04
0ldbi4
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699

Репутация: 69
По умолчанию

Всё более просто чем я себе предсталял спасибо
 
Ответить с цитированием

  #4  
Старый 31.10.2009, 09:13
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

Репутация: 229
По умолчанию

Есть ли аналог функции time() как в php но токо в делфи?

time()

Возвращает количество секунд, прошедших с начала Эпохи Unix (т.е. с 1 января 1970, 00:00:00 GMT по наше время)
 
Ответить с цитированием

  #5  
Старый 31.10.2009, 12:02
Nullsleep
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284

Репутация: 54
По умолчанию

А эту дату от текущей отнимать не пробывал?
 
Ответить с цитированием

  #6  
Старый 31.10.2009, 12:15
RAINUR2
Познающий
Регистрация: 27.08.2009
Сообщений: 33
Провел на форуме:
62823

Репутация: 0
По умолчанию

есть вопросик,)можно ли на Турбо Паскаль 7 работать с аськой, ну там подключаться....
 
Ответить с цитированием

  #7  
Старый 31.10.2009, 12:16
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


По умолчанию

Можно если найдешь 32-х битную версию и напишеш сам ICQ клиент.
Но вообще паскаль считай умер, юзай делфи. Ненравится размер - откажись от VCL
 
Ответить с цитированием

  #8  
Старый 31.10.2009, 12:26
RAINUR2
Познающий
Регистрация: 27.08.2009
Сообщений: 33
Провел на форуме:
62823

Репутация: 0
По умолчанию

ДА я это для интереса, не подскажите как на делфи???
 
Ответить с цитированием

  #9  
Старый 31.10.2009, 12:51
Adekvatnyj
Участник форума
Регистрация: 28.10.2009
Сообщений: 129
Провел на форуме:
460561

Репутация: 67
По умолчанию

Дайте книжку по Delphi "Програмирование для людей из раздела прогресирующего даунизма" или что то подобное, все книги сразу рассматривают готовое приложение, а переменные и постоянные не рассказано как делать.
 
Ответить с цитированием

  #10  
Старый 31.10.2009, 14:35
=Zeus=
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939

Репутация: 108
По умолчанию

Здравствуйте, уважаемые античатовцы. У меня возникла неожиданная проблемма с Indy. Программа должна делать загрузку файлов на хостинг. В процессе тестирования выяснилось, что программа отправляет в 2 раза больше трафика: если я загружал файл на 2 Мб - реально моя программа отправляет чуть больше 4-х. Я растерян. Кто встречался с подобным, подскажите решение проблеммы. Пользують D2010, Indy 10.5.5. Спасибо за внимание.
Код загрузки:

Код:
function Upload(AURL, AFile: string): string;
var formData: TIdMultiPartFormDataStream;
begin
  formData := TIdMultiPartFormDataStream.Create;
  try
    // Добаляю параметры в formData
    // и файл:
    formData.AddFile('upsingle',AFile,GetContentType(AFile));
    try
      Result := idHTTP.Post(AURL,formData);
    except
      Result := '';
    end;
  finally
    formData.Free;
  end;
end;
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2569 10.05.2026 13:27
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.