![]() |
|
#1
|
|||
|
|||
![]() Недавно слетели библиотеки SSL. С чем связано так и не определил, возможно после апа вин 7 или установки драйверов..
Посоветовали попробывать синапс, говорят проблем с ним нет. Прошу совета местных гуру |
#2
|
||||
|
||||
![]() Synapse - это просто удобная обертка на сокеты. Проблемы те же что и при работе с сокетами должны быть. Насчет Indy - без понятия. Гуглание по инету в конце концов заставило меня поверить, что Synapse лучше, однако не пробуя Indy я не могу ничего сказать точно. Использую Synapse, так как везде советуют и мануалов с примерами валом вроде как.
00110001 00101100 00110110 00110001 00111000 00110000 00110011 00110011 00111001 00111000 00111000 00110111 00110100 00111001 00111000 00111001 00110100 00111000 00110100 00111000 00110010 00110000 00110100 00110101 00111000 00110110 00111000 00110011 00110100 00110011 00110110 00110101 00110110 |
#3
|
|||
|
|||
![]() Восстановил библиотеку SSL. Теперь программа умирает при скачивании файлов из сети с мессаджем Connection timeout. Ранее работало без капризов. Это может быть как то связано с либой?
Код:
gethttp := TIdHTTP.Create(nil); ms := TMemoryStream.Create; while Pos('<user>',answer)<>0 do begin tempuser:=TUser.create; tempuser.uid:=Pars('uid',answer); tempuser.fname:=Pars('first_name',answer); tempuser.lname:=Pars('last_name',answer); tempuser.online:=StrToInt(Pars('online',answer)); if Pos('<activity/>',copy(answer,1,Pos('</user',answer)))<>0 then tempuser.activity:='' else tempuser.activity:=Pars('activity',answer); if copy(Pars('photo_rec',answer),Length(Pars('photo_rec',answer))-3,4)='.jpg' then begin try try gethttp.Get(Pars('photo_rec',answer), ms); except on E:Exception do exit; end; ms.Position := 0; jpeg := TJPEGImage.Create; jpeg.LoadFromStream(ms); tempuser.photo:=TBitmap.Create; tempuser.photo.Assign(jpeg); tempuser.photo.Width:=50; tempuser.photo.Height:=50; jpeg.Free; finally ms.Clear; end; end; Friends.AddObject(tempuser.uid,tempuser); delete(answer,1,Pos('</user>',answer)); pb_login.Position:=pb_login.Position+1; end; ms.Free;gethttp.Free; |