VPF::реализация Pop3/Smtp без VCL. - Форум программистов

Cetus

Дата 10.5.2005, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 18.4.2004

Репутация: нет
Всего: 1

Неделю ищу реализацию pop3/smtp под Kol.

На сайтах кол нашел пару библиотек KolIndy
но pop3 компоненты не компилируются без ошибок, либо код раздувается до ~300 кб.
пробовал стандартную библиотеку Indy подключать динамически но код раздувается до безобразия.

Кто знает где можно найти pop3/smtp компоненты под кол не глючные и не большие (откомпилированные)?

есть ли реализация Imap для Kol ? (если да то где искать?)

--------------------

Легко внести изменения в код.Трудно сделать это корректно.

Дата 10.5.2005, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

http://tothpaul.free.fr/zip/CRTSOCK.ZIP (Не использует VCL)

Олег_Игоревич

Дата 10.5.2005, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 21.1.2005

Репутация: нет
Всего: нет

Используй WINAPI !!! А для экономичного кода можно использовать фрагменты на assembler.

--------------------

Используй жизнь ПО ПОЛНОЙ !!!

Cetus

Дата 18.5.2005, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 18.4.2004

Репутация: нет
Всего: 1

RAdmin, как этим компонентом читать приаттаченые файлы?

--------------------

Легко внести изменения в код.Трудно сделать это корректно.

Дата 18.5.2005, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

Код



{H+}


function include(filename:string):string;
 var
  f:file;
  s:string;
  u:string;
  i,x:integer;
  ss:integer;
  c1,c2:byte;

  function uuchr(b:byte):char;
   begin
    if b=0 then result:=#96 else result:=chr(b+32);
   end;

 begin
  assignfile(f,filename);
  reset(f,1);
  if ioresult<>0 then begin
   result:='$include "'+filename+'" read error';
   exit;
  end;
  result:=#13#10'begin 600 '+filename+#13#10;
  setlength(s,76);
  while not eof(f) do begin
   blockread(f,s[1],45,i);
   u:=uuchr(i); // UUCoded line lenght
   ss:=2;
   c2:=0;
   for x:=1 to i do begin
    c1:=ord(s[x]);
    u:=u+uuchr(c2 or (c1 shr ss));
    c2:=(c1 shl (6-ss)) and 63;
    ss:=(ss+2) and 7;
    if ss=0 then begin
     ss:=2;
     u:=u+uuchr(c2);
     c2:=0;
    end;
   end;
   if (ss>2) then begin
    u:=u+uuchr(c2)+#96;
    if ss=4 then u:=u+#96;
   end;
   result:=result+u+#13#10;
  end;
  result:=result+#96#13#10'end'#13#10;
 end;
 

 
 
 smtpSend(edFrom.Text,edTo.Text,edSubject.Text,edBody.Lines + include('c:\myfile.zip') )

Тоесть кодируешь свой фаил и добавляешь кодированный результат к тексту сообщения.

Не забудь про директиву {H+}

Cetus

Дата 19.5.2005, 07:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 18.4.2004

Репутация: нет
Всего: 1

RAdmin, спасибо!

--------------------

Легко внести изменения в код.Трудно сделать это корректно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »