| Вопрос: Помогите пожалуйста, очень надо! | Добавлено: 06.06.08 11:22 |
Автор вопроса:  Sef
|
| Как в локальной сети из одной программы в другую передать рисунок? |
| Ответы | Всего ответов: 17 |
|
Номер ответа: 1 Автор ответа:  Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #1 | Добавлено: 06.06.08 11:26 |
Как два байта переслать 
|
||
|
Номер ответа: 2 Автор ответа: Sef Вопросов: 4 Ответов: 6 |
Профиль | | #2 | Добавлено: 06.06.08 12:08 |
| Спасибо, очень познавательный совет SMITH. | ||
|
Номер ответа: 3 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 06.06.08 12:14 |
|
Видимо, винсоком Примеров куча разных.
|
||
|
Номер ответа: 4 Автор ответа:  SefВопросов: 4 Ответов: 6 |
Профиль | | #4 | Добавлено: 06.06.08 12:42 |
|
Dim p As Variant
Private Sub Form_Load() p = Image1.Picture Winsock1.RemoteHost = "192.128.0.3" Winsock1.RemotePort = 1000 Winsock1.Connect End Sub Private Sub send_Click() Winsock1.SendData p End Sub 'Как изменить, чтобы заработало? |
||
|
Номер ответа: 5 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #5 | Добавлено: 06.06.08 12:50 |
|
Private Sub Form_Load()
MsgBox "It's work!" End Sub |
||
|
Номер ответа: 6 Автор ответа: SefВопросов: 4 Ответов: 6 |
Профиль | | #6 | Добавлено: 06.06.08 12:58 |
|
Клиент:
Dim p As Variant Private Sub Form_Load() p = Image1.Picture Winsock1.RemoteHost = "192.128.0.3" Winsock1.RemotePort = 1000 Winsock1.Connect End Sub Private Sub send_Click() Winsock1.SendData p End Sub Сервер: Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim Status As Integer Private Sub Form_Load() Winsock1.LocalPort = 1000 Winsock1.Listen End Sub Private Sub winsock1_ConnectionRequest(ByVal requestID As Long) If Winsock1.State <> sckClosed Then Winsock1.Close Winsock1.Accept requestID End Sub Private Sub winsock1_dataArrival(ByVal BytesTotal As Long) Dim Data As Variant Winsock1.GetData Data image1.picture = data End Sub ' Not work! |
||
|
Номер ответа: 7 Автор ответа: D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #7 | Добавлено: 06.06.08 13:01 |
|
не ганяйте з человека.
Вообщем нада бы считать файл твой как бинарный. и точто ты щитал кидай в p .По идеи джолжно работать а на практике хз.ну можна.Передавать кусками проверять сходятса ли хеши и тд. |
||
|
Номер ответа: 8 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #8 | Добавлено: 06.06.08 13:04 |
|
http://www.google.ru/search?complete=1&hl=ru&newwindow=1&q=%D0%BA%D0%B0%D0%BA+%D0%BF%D0%B5%D1%80%D0%B5%D0%B4%D0%B0%D1%82%D1%8C+%D1%84%D0%B0%D0%B9%D0%BB+winsock+vb&lr=&aq=f
Блин что ли тяжело GOOGLE использывать. |
||
|
Номер ответа: 9 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #9 | Добавлено: 06.06.08 13:11 |
|
Sef не дуйся, видишь же что я шучу
Дай ящик, скину тебе рабочий пример прокачки файлов по LAN протоколом TCP. |
||
|
Номер ответа: 10 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #10 | Добавлено: 06.06.08 13:16 |
|
Примерчик моего сочинения, одна прога приёмо-передатчик файлов.
Местами даже с комментами! Ну если не разберешься, я тут. |
||
|
Номер ответа: 11 Автор ответа: SefВопросов: 4 Ответов: 6 |
Профиль | | #11 | Добавлено: 06.06.08 13:17 |
| Sef_666@mail.ru, Зарание спасибо! | ||
|
Номер ответа: 12 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #12 | Добавлено: 06.06.08 13:24 |
|
В примере как образец для прокачки 5 метровый mp3 У тебя инэт анлим? Или убрать файл?
|
||
|
Номер ответа: 13 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #13 | Добавлено: 06.06.08 13:31 |
|
Глядя на твой код могу сказать следующее
В своё время решил файлы пересылать, сохранять как тмп и грузить в программу, общепринятая практика. И какое преимущество! Качать можно почти всё что с винта подобрать можно. |
||
|
Номер ответа: 14 Автор ответа: SefВопросов: 4 Ответов: 6 |
Профиль | | #14 | Добавлено: 06.06.08 13:46 |
| Я лазию через gprs, так что лучше убери! Ты отослал на мыло? Я пробывал сохранять в общюю папку рисунок в jpg, а на другой машине открывать. Но у меня постоянно картинка обновляется и поэтому проги зависает, когда одновременно хотят получить доступ к файлу! | ||
|
Номер ответа: 15 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #15 | Добавлено: 06.06.08 13:51 |
|
Ясно! Я послал два варианта, но урезанный всё равно 1метр.
Щас всё вырежу кроме самих исходников и снова пошлю. |
||