Главная страница
    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.036 c
14-15290
DeMoN-777
2002-12-17 00:52
2003.01.06
Помогите...


14-15241
Delirium
2002-12-15 14:37
2003.01.06
Microsoft собирается купить Borland целиком !


14-15305
Карелин Артем
2002-12-18 11:52
2003.01.06
Хороший стиль.


1-15088
Артём К.
2002-12-22 11:46
2003.01.06
Нужен небольшой ликбез по созданию, удалению файлов и папок


1-15037
Speaker
2002-12-22 00:15
2003.01.06
Проблема с TComboBoxEx+TCoolBar





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский