|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.08.2008, 22:33 | #1 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
raised exception class EIdSocketError with message' Socket Error # 10022 Invalid argument
эта ошибка меня уже достала она появляеться во всех программа которых написал и в чужих исходников она тоже появлеться
вот ошибка это в делфи Project Project1.exe raised exception class EIdSocketError with message' Socket Error # 10022 Invalid argument.'. Process stopped.Use Step or Run to continue. а вот есть запустить скомпилированую программу вот такая ошибка появляеться Soket Error # 10022 Invalid argument. вот код unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ExtCtrls, ScktComp; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; IdHTTP1: TIdHTTP; ClientSocket1: TClientSocket; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var buffer:TMemoryStream; begin buffer:=TMemoryStream.Create; try idHTTP1.Connect; idHTTP1.Get('http://game.arbital.ru/board/userbars/ub3.php?port=27018',buffer); buffer.SaveToFile('C:\WINDOWS\Temp\ temp.png'); Image1.Picture.LoadFromFile('C:\WIN DOWS\Temp\temp.png'); DeleteFile('C:\WINDOWS\Temp\temp.pn g'); IdHTTP1.Disconnect; except on E:Exception do ShowMessage(e.Message); end; buffer.Free; end; end. В чём дело то? не понимаю, помогите !!! |
07.08.2008, 23:28 | #2 |
Пользователь
Регистрация: 21.08.2007
Сообщений: 89
|
Delphi 5 ? в 5-й версии глюк был с ClientSocket
подписываюсь
|
08.08.2008, 00:22 | #3 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
нет у меня delphi 7
|
08.08.2008, 08:46 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Почитай ка тут мож поймешь чего:
http://www.westbyte.com/ida/index.phtml?page=faq_ec
I'm learning to live...
|
08.08.2008, 10:14 | #5 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Код:
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
08.08.2008, 12:34 | #6 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
квэнди
все равно выдаёт ошибку при запуске программы вот эту ошибку Project Project1.exe raised exception class EIdSocketError with message' Socket Error # 10022 Invalid argument.'. Process stopped.Use Step or Run to continue. Хотя изменение произошли в диске c: появился пустой файл temp.png хоть какой то результат во код unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ExtCtrls, ScktComp; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; IdHTTP1: TIdHTTP; ClientSocket1: TClientSocket; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var f:tfilestream; begin f:=tfilestream.Create('c:\temp.png' ,fmcreate); idhttp1.Get('http://game.arbital.ru/board/userbars/ub3.php?port=27018',f); f.Free; image1.Picture.LoadFromFile('c:\tem p.png'); end; end. |
08.08.2008, 12:46 | #7 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Проверьте на чистом проекте в вложении (поброуйте сначала просто выполнить exe которые в архиве и посмотрите на результат, а потом попробуйте перекомпилировать проект и тоже посомтреть результат
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
08.08.2008, 14:09 | #8 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
Квэнди
нет точно такой же результат Project Project1.exe raised exception class EIdSocketError with message' Socket Error # 10022 Invalid argument.'. Process stopped.Use Step or Run to continue. и если просто запустить exe то такая же ошибка Soket Error # 10022 Invalid argument. |
08.08.2008, 14:24 | #9 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
либо блокируется файрволом запрос, либо какие- то несовместимые версии билиотек
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
08.08.2008, 15:18 | #10 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
Квэнди
Ну посмотри вот этот исходник на работы если он у тебя работает значит дело в моей delphi |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
asynchronous socket error 10060 | delphin100 | Работа с сетью в Delphi | 6 | 07.05.2008 07:07 |
Message-ы | Altera | Общие вопросы Delphi | 9 | 15.02.2008 09:08 |
Send Message | _SERGEYX_ | Работа с сетью в Delphi | 5 | 30.10.2007 06:38 |
Error --- Class TDBGridEh not found | shurik_7866 | Компоненты Delphi | 2 | 30.06.2007 11:09 |