Email клиент на Delphi

[Alessandro Rossi]

Решыл написать Email клиент на Delphi http://articles.org.ru/cn/showdetail.php?cid=6120. Напишите пожалуйста код для создание нового сокета и заполнение структуры TSockAddrIN.

[BOBAH13]

Ну раз Вы сказали волшебное слово "пожалуйста", то прям таки сейчас и напишу вам и код, да и вообще весь клиент.

Мне вот интересно, вы хоть пытались искать?

[Alessandro Rossi]

Сообщение от BOBAH13

напишу вам и код, да и вообще весь клиент.

Я кажется и не просил писать весь клиент, а для особо одаренных объясняю: нужно корректно заполнить структуру TSockAddrIN так как я нашел только ее описание. А для таких умников как BOBAH13(Профессионал) скажу: может ты и знаешь анг может ты и умной (Профессионал), хотя скорее всего ты просто высокомерный болван(ты хоть сам смотрел ту ссилку?). Специально для тебя http://www.google.com.ua/search?hl=r...=&oq=&gs_rfai=

[BOBAH13]

1. Вы мне не тыкайте
2. Болван?! Вы меня знаете? Нет. Как вы можете себе позволять такие суждения? Проявите свою воспитанность хотя бы
3.

var
  addr: sockaddr_in;
  FDSet: TFDSet;
  TimeVal: TTimeVal;
  Len: Integer;
begin
  FSocket := winsock.socket(AF_INET, SOCK_STREAM, IPPROTO_IP); // socket
  if FSocket = INVALID_SOCKET then
  begin
    Exit;
  end;

  ZeroMemory(@addr, SizeOf(sockaddr_in));
  addr.sin_family := AF_INET;
  addr.sin_port := htons(FPort); // port
  addr.sin_addr.S_addr := inet_addr(PCHAR(FHost)); // host
  if winsock.connect(FSocket, addr, SIZEOF(sockaddr_in)) = ...

[Gambler]

BOBAH13, и не лень тебе было отвечать? Раз уж он знает про гугл - мог бы и найти "Самоучитель игры на WinSock". А то какие то борзые новички пошли.

[Alessandro Rossi]

Может я и погарячился но не я первый начал и если обидел каво то извините. А тебе Gambler тоже ссилочку забросить?

[Gambler]

да смысла никакого. Ладно бы ты в лицо сказал - другое дело. Вот уж пообщались бы. А то молодец, сидишь хрен знает где и ссылками кидаешься. (раньше кидались понтами)