Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

ПОМОГИТЕ !!!   Найти похожие ветки 

 
/*Drive*/   (2002-11-08 09:24) [0]

Это консольное приложение !!!!
Почему то что я посылаю прихдит на сервер в виде непонятно чего !!!!!:



program send;

{$APPTYPE CONSOLE}

uses
SysUtils,winsock;
const
EOLn = #$0D#$0A;
var
com,resved:string;
wsa:twsadata;
host:string;
port:integer;
res:integer;
s:tsocket;
adr:sockaddr_in;
begin
port:=0;
Wsastartup($101,wsa);
s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
writeln("Max Sockets Count : "+inttostr(wsa.iMaxSockets));
writeln("Max D.Sock. Count : "+inttostr(wsa.iMaxUdpDg));
writeln("Sys.Sockets Staus : "+wsa.szSystemStatus);
writeln("-----------------------------------------------");
write("Enter hostname: ");readln(host);
write("Enter port(25): ");readln(port);
if port=0 then port:=25;
adr.sin_family:=AF_INET;
adr.sin_port:=htons(port);
adr.sin_addr.S_addr:=inet_addr(pchar(host));
if connect(s,adr,sizeof(adr))=0 then writeln("Connected");
repeat
Write("Enter command :");
readln(com);
send(s,com,sizeof(com),0);
recv(s,resved,sizeof(resved),MSG_DONTROUTE);
writeln(resved);
until com="exit";
end.


 
Ketmar   (2002-11-08 11:26) [1]

шагом марш в хэлп читать про AnsiStrings.

Satanas Nobiscum! 08-Nov-XXXVII A.S.


 
/*Drive*/   (2002-11-08 13:36) [2]

Ну прочитал!!!


 
Digitman   (2002-11-08 13:56) [3]


> Ну прочитал!!!


Ну молодца !!!)

А теперь скажи, где ты там увидел, чтобы размер данных, хранящихся в формате AnsiString, мог быть вычислен компилятором именно с помощью SizeOf() ? И для чего, по-твоему, существует ф-ция Length() ?



 
/*Drive*/   (2002-11-08 19:00) [4]

> Digitman
Большое тебе спасибо !!!
Вот лоханулся !!!! :-)


 
Ketmar   (2002-11-08 19:41) [5]

как всегда МНЕ никто ничего не сказал. я, видимо, слишком лаконичен? %-)

Satanas Nobiscum! 08-Nov-XXXVII A.S.


 
/*Drive*/   (2002-11-08 23:01) [6]

Спасибо обоим за ответ, НО всёравно не работает !!!!!!!!!


 
/*Drive*/   (2002-11-09 08:02) [7]

Мастера !!! Опять проблема !!!!

program CMail;

{$APPTYPE CONSOLE}

uses
SysUtils,winsock;
var
com,resved:string;
wsa:twsadata;
host:string;
port:integer;
res:integer;
s:tsocket; col:Integer;
adr:sockaddr_in;
begin
port:=0;
Wsastartup($101,wsa);
s:=socket(PF_INET,SOCK_STREAM,0);
writeln("Max Sockets Count : "+inttostr(wsa.iMaxSockets));
writeln("Max D.Sock. Count : "+inttostr(wsa.iMaxUdpDg));
writeln("Sys.Sockets Staus : "+wsa.szSystemStatus);
writeln("-----------------------------------------------");
write("Enter hostname: ");readln(host);
write("Enter port(25): ");readln(port);
if port=0 then port:=25;
adr.sin_family:=PF_INET;
adr.sin_port:=htons(port);
adr.sin_addr.S_addr:=inet_addr(pchar(host));
if connect(s,adr,sizeof(adr))=0 then writeln("Connected");
repeat
Write("Enter command :");
readln(com);
send(s,com[1],Length(com),0);
recv(s,resved,length(resved),MSG_PEEK);
writeln(resved);
until com="exit";
end.

Так а почему данные на экран не выводятся ?


 
Набережных С.   (2002-11-09 11:08) [8]

Еще читай, что Ketmar © (08.11.02 11:26) велел.



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.033 c
14-15297
OZZY OSBOURNE
2002-12-17 23:01
2003.01.06
Ищу Леля.


14-15282
Igorek
2002-12-17 16:03
2003.01.06
Перебор подпоследовательностей


6-15196
X-shadow
2002-11-08 18:01
2003.01.06
вот


3-14945
oleg_er
2002-12-14 11:31
2003.01.06
содержимое запроса в новую таблицу?


1-15145
WinSetup
2002-12-23 18:14
2003.01.06
МАСТЕРА! Как записывать и считывать из файла длинные строки?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский