Критические ошибки

[vovken1997]

Спасибо!
Начал читать.

Просто вопрос сложился. Чем мой код принципиально отличается от кода Slym'а??? Зачем нужно было

type
PMailBox=^TMailBox;
TMailBox=record
Pop3:TidPOP3;
Smtp:TidSMTP;
Data:string;
end;

Для чего продублировались функции

function MailBoxCreate:PMailBox;
procedure MailBoxFree(MailBox:PMailBox);
function MailBoxGetData(MailBox:PMailBox;Buf :PChar;BufLength:integer):integer;
function SetPop3Params(MailBox:PMailBox;Host ,Username,Password:PChar):boolean;
function SetSmtpParams(MailBox:PMailBox;Host ,Username,Password:PChar):boolean;
function MailBoxReadMessageCount(MailBox:PMa ilBox):integer;
function MailBoxReadMessage(MailBox:PMailBox ;ID:integer):boolean;

implementation
const
DllName = 'Project1.dll';

function MailBoxCreate:PMailBox;external DllName;
procedure MailBoxFree(MailBox:PMailBox);exter nal DllName;
function MailBoxGetData(MailBox:PMailBox;Buf :PChar;BufLength:integer):integer;e xternal DllName;
function SetPop3Params(MailBox:PMailBox;Host ,Username,Password:PChar):boolean;e xternal DllName;
function SetSmtpParams(MailBox:PMailBox;Host ,Username,Password:PChar):boolean;e xternal DllName;
function MailBoxReadMessageCount(MailBox:PMa ilBox):integer;external DllName;
function MailBoxReadMessage(MailBox:PMailBox ;ID:integer):boolean;external DllName;

И для чего необходимо разделение кода на савсем пустяковые процедуры в три строки???

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

Этому сами учатся, или кто то учит и есть строго прописанные правила написания кода???

[3D Hunter]

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

[vovken1997]

Спасибо!
Попробую поработать над своим кодом сам. Если не получится воспользуюсь тем что есть.

[Slym]

есть парадигма: где породил там и убей! особенно в разных модулях и разных менеджерах памяти.
string - сложный тип, с автоматическим временем жизни и этот автомат перестает правильно работать при общении с DLL... приходится использовать либо менеджер памяти либо более простые типы как PChar

MailBoxCreate - создание некого объекта почтового ящика
MailBoxFree - его убийство
SetPop3Params, SetSmtpParams - выставление параметров
MailBoxGetData - запрос текстовых данных по последней операции.
а дальше пошли функции чтения записи почты

[Slym]

процедуры в три строки нужны чтоб избежать вот этого
function messag_read(host:PChar;Port:integer ;login,password,Buf:PChar;BufLength :integer):integer;
6 параметров многовато для читаемости...

кроме того
твой код: 1 операция - одна сессия с сервером
мой код: несколько операций - одна сессия с сервером, что быстрее и правильнее

[vovken1997]

У меня пишет что не может найти idText.dcu. Поискал этот файл по всему компу, результатов не найдено. Скиньте пожайлуста.

И под какую делфи вы пиcали код???

[Slym]

А КАК ТВОЙ ПЕРВЫЙ КОД КОМПИЛИЛСЯ?
там тоже idText используется

D7

[3D Hunter]

переходите на synapse. ИМХО,лучшая библиотека сокетов.все просто и понятно.даже примеры кода есть.

[vovken1997]

У меня в uses idText не был прописан. Как он там используется???