winsock

← →
lamachok (2002-12-04 18:17) [0]

скажите как с помощью winsock отослать файл

← →
Polevi (2002-12-04 18:31) [1]

и ключи от квартиры

← →
lamachok (2002-12-04 19:15) [2]

2Polevi можно и не тока ключи .. а так я серьезно

← →
Polevi (2002-12-05 09:23) [3]

ну дам я тебе пример - а дальше что ?
ты же не поймешь там ничего

← →
eSKey (2002-12-05 12:19) [4]

> lamachok

Ничего сложного: открываешь файл, читаешь его - это через стрим. На передающей и принимающей стороне должны быть программы, которые будут общаться. Используй, допустим, соединение клиент-сервер. Создаешь сокет, указываешь сетевой адрес и порт. Примеры работы с сокетами есть на этом сайте в "Кладовке" кажется. Потом передаешь считаный поток файла через сокет. На приемной стороне записываешь его куда надо. Вкратце все. Детали в многочисленных хелпах и ФАКах. :)

← →
lamachok (2002-12-05 15:30) [5]

2 Polevi давай .. может разберусь
2 eSKey у меня тока одна сторона... второй нет

← →
Polevi (2002-12-05 17:09) [6]

если нет принимающей стороны то как ты собираешься отправлять ?
тебе известен протокол обмена ?

← →
Digitman (2002-12-05 17:12) [7]

>lamachok

Да уж, сударь) ... Ты уж прислушайся к <Polevi> и определись хоть как-нибудь с протоколом инф.обмена ... мож, и я чем помогу тогда

← →
lamachok (2002-12-05 18:28) [8]

да ядрен .. я имел ввиду что на другой стороне будут принимать письмо с аттачем какой-нить прогой типа аутлюк и так далее

← →
Digitman (2002-12-06 08:25) [9]

> какой-нить прогой типа аутлюк

Непосредственно "аутлюку" ты вряд ли чего-то пошлешь, потому что ты не сможешь осуществить коннект к "аутлюку", ибо "аутлюк" - это программа-клиент, а не программа-сервер. Ксли же тебя "заклинило" именно на "аутлюке", то тебе необходимо воспользоваться любым компонентом, использующем протокол SMTP

← →
Polevi (2002-12-06 09:27) [10]

>Digitman © (06.12.02 08:25)
крутым пацанам компонент не подходит, им надо на чистом и конкретном апи :-)

← →
Digitman (2002-12-06 09:33) [11]

> Polevi

Ну звыняйте) ... Бананьев у нас нэма)

← →
lamachok (2002-12-06 16:54) [12]

да все куда груснее чем я ожидал.. вот
procedure Go(p: String); var Len: Integer; begin for Len:=1 to Length(p) do if Send(s,p[Len],1,0)=SOCKET_ERROR then Halt; end; procedure main; begin WSAStartup(makeword(1,0),W); s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP); r.sin_family:= AF_INET; r.sin_port:= htons(25); r.sin_addr.s_addr:= inet_addr(pchar("194.67.57.51")); connect(s,s2,SizeOf(s2)); go("HELO 123"+#13+#10); recv(s,buf,sizeof(buf),0); go("MAIL FROM:123@mail.ru" +#13+#10); recv(s,buf,sizeof(buf),0); go("RCPT TO:2334@mail.ru"+#13+#10); recv(s,buf,sizeof(buf),0); go("DATA"+#13+#10); recv(s,buf,sizeof(buf),0); go("22323"+#13+#10); recv(s,buf,sizeof(buf),0); go(#13+#10+"."+#13+#10); recv(s,buf,sizeof(buf),0); g0("QUIT"+#13+#10); closesocket(s); end; о как!!
вот этим макаром мне надо отправить аттач... просто еще к словам прилепить файл, а как???
p.s.клея нет говорю сразу

← →
Digitman (2002-12-06 17:40) [13]

Если даже ЭТО работать будет В ПРИНЦИПЕ, то не все уж так уж и "грусно"))))).

Только вот совершенно непонятно, при чем здесь "аутлюк", если в приведенном тобой (явно содранном откуда-то, причем - бездумно) коде нет ни намека на него)

> мне надо отправить аттач... просто еще к словам прилепить
> файл, а как???

Не сходить ли тебе для начала хотя бы вот сюда
http://book.itep.ru/4/4/mime.htm

?

← →
lamachok (2002-12-06 18:49) [14]

Только вот совершенно непонятно, при чем здесь "аутлюк", если в приведенном тобой (явно содранном откуда-то, причем - бездумно) коде нет ни намека на него)
короче ... забудь про атлюк ... он был просто так...
пример то что я дал просто показывает как отправить простое письмо с одним словом ... чем там его будет принимать тот кто получет мне по фени .. (вот и нет намека!) .. дело не в этом ...
а в том как же все же приатачить

← →
Polevi (2002-12-06 18:59) [15]

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

← →
Alex Konshin (2002-12-07 06:45) [16]

Смотри функцию TransmitFile в MS расширении сокетов.
Описана в unite IdWinsock2 в Indy в Delphi7.
Если для старых версий, то бери мой Winsock2:
http://home.earthlink.net/~akonshin/index.htm

← →
Alex Konshin (2002-12-07 06:50) [17]

Oops! Не дочитал, тут оказывается про SMTP речь идет :)
Это ж надо так умудится вопрос сформулировать.

winsock Найти похожие ветки