WinForms

Πρόβλημα με το ftpwebrequest

Ch_Chalatsis — Mon, 30 Jan 2023 05:53:07 GMT

Καλησπέρα σε όλους. Θα ήθελα εάν κάποιος γνωρίζει να με βοηθήσει γιατί ειλικρινά δεν ξέρω τι άλλο να κάνω. Εφαρμογή την οποία έχω αναπτύξει εδώ και δυο ΧΡΟΝΙΑ τρέχει κανονικά σε όλα τα windows version αλλά ξαφνικά αντιμετώπισα το εξής. Σε έναν υπολογιστή με windows 7 δεν μου δουλεύει η εντολή frpwebrequest.

Δοκίμασα σχεδόν τα πάντα. Active και Passive mode, πόρτες εάν είναι κλειστές, TLS1….1.2, SSL κι άλλα. Έχει αντιμετωπίσει κάνεις κάτι παρόμοιο;;;

Ευχαριστώ.

Διαδικτυακή Υπηρεσία Α.Α.Δ.Ε. «Αναζήτηση Βασικών Στοιχείων Μητρώου Επιχειρήσεων»

γιωργος μπακογιαννης — Tue, 20 Nov 2018 21:43:21 GMT

Καλησπέρα,
Έχει ασχοληθεί κάποιος με την Αναζήτηση Βασικών Στοιχείων Μητρώου Επιχειρήσεων σε περιβάλλον .net ?
Σχετική σελίδα: https://www.aade.gr/epicheireseis/phorologikes-yperesies/metroo/anazetese-basikon-stoicheion-metrooy-epicheireseon

Ευχαριστώ

Δωρεάν WinForms components

mouratx — Sat, 27 Apr 2019 02:26:55 GMT

Στον δικτυακό μου τόπο http://users.sch.gr/mouratx θα βρείτε WinfForms components, που έχω δημιουργήσει και μπορείτε ελεύθερα να χρησιμοποιήσετε στις εφαρμογές σας.

Με εκτίμηση,

Χρήστος Μουρατίδης

Πως μπορούμε να αποτρέψουμε τον προγραμματιστή από το να τοποθετήσει ένα UserControl περισσότερες από μία φορές;

Simonetos The Greek — Mon, 16 Apr 2018 18:42:49 GMT

Καλημέρα σε όλους!!!

Δουλεύω ένα UserControl σε VB.NET (VS2017) και ψάχνω έναν τρόπο έτσι ώστε να αποτρέπω τον προγραμματιστή να το τοποθετήσει σε μία φόρμα πάνω από μία φορά, σε Design Time. Με άλλα λόγια, θέλω μέσω του κώδικα μου σε Design Time, να εντοπίσω αν το UserControl μου έχει ήδη τοποθετηθεί σε κάποιο ParentForm ή όχι και να αποτρέψω τη δεύτερη τοποθέτηση εάν υπάρχει ήδη.

Προσπάθησα κάτι, σαν αυτό που θα δείτε στο παράδειγμα παρακάτω... Αλλά δεν είμαι σίγουρος αν αυτός είναι ο "σωστός" τρόπος και δεν μπορώ να βρω πώς να αφαιρέσω ή να σταματήσω την τοποθέτηση του UserControl.

Και πάλι, όλα αυτά, σε Design Time!!!

Private Sub MyUserControl_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim _Count As Integer
    Dim _UserControl As MyUserControl
    For Each _UserControl In Me.ParentForm.Controls
        If _UserControl.Name.Contains("MyUserControl") Then
            _Count += 1
        End If
    Next
    If _Count > 1 Then
        MsgBox("Control have been placed.")
    Else
        MsgBox("Control haven't placed yet.")
    End If
End Sub

SqlBulkCopy & limitations από το Source DataTable object

Q-apprentice — Wed, 06 Dec 2017 19:40:26 GMT

Καλησπέρα σας, είχα κάνει μια ερώτηση πιο παλιά που αφορούσε σε multithreaded sql insert. Θα ήθελα καταρχάς να ευχαριστήσω όσους έκαναν τον κόπο και το είδαν και στην συνέχεια απάντησαν.

Κάτι που θα ήθελα να μάθω, αν γνωρίζετε, είναι όταν έχω ένα πεδίο στο σource DataTable object που πάω να στείλω με bulkcopy στον SQL, το οποίο είναι σε μέγεθος μεγαλύτερο από 4000 χαρακτήρες (είναι string) και πολλές φορές μπορεί να είναι και πάνω από 10000 χαρακτήρες, το bulkcopy ρίχνει exception.

Το πεδίο στη βάση είναι Nvarchar(MAX) για να μπορεί να πάρει τόσο μεγάλες τιμές. Έχω κάνει και field mapping στο bulkcopy. Κάτι είχα δει στο MSDN που έλεγε ότι εφόσον έχεις πάνω από 4000 χαρακτήρες (μιλάμε για code side και όχι sql server side) θα πρέπει να δηλώσω explicitly το object ???? ;

Έχετε ξανά αντιμετωπίσει κάτι τέτοιο ; Για οποιαδήποτε λεπτομέρεια χρειαστείτε είμαι στη διάθεσή σας.

ευχαριστώ εκ των προτέρων

Multithreaded SQL insertion to tables

Q-apprentice — Sat, 22 Apr 2017 17:56:47 GMT

Καλημέρα σας κύριοι !

Αντιμετωπίζω το εξής θέμα και χρειάζομαι τη βοήθεια/γνώση σας. Έχω δημιουργήσει μια εφαρμογή η οποία αφορά αποθήκη ανταλλακτικών. Χρειάζομαι λοιπόν, να κάνω import κάποια αρχεία csv τα οποία όμως ειναι και πολλά και μεγάλα σε μέγεθος. (περίπου 250 αρχεία μεγέθους από 40-130 mb έκαστο). Όπως καταλαβαίνετε με ενδιαφέρει να το κάνω όσο το δυνατό πιο γρήγορα. Σκέφτηκα λοιπόν να το κάνω multithreaded. να διαβάζω δηλαδή τόσα αρχεία ταυτόχρονα, όσα και τα threads που έχει ο εκάστοτε υπολογιστής. Στο τέλος όλα αυτά θα πάνε σε μια βάση MSSQL Server 2008 R2. Η εφαρμογή είναι γραμμένη σε C# με .ΝΕΤ 4.5. Τέλος να αναφέρω ότι ένας πίνακας αποτελείται απο πολλά CSV αρχεία καθότι είναι πάρα πολλές οι εγγραφές που έχει. Τα αρχεια είναι enumerated (π.χ. Table1_1.csv, Table1_2.csv, Table2_1.csv κτλ)

Ποια είναι μια σωστή προσέγγιση στο παραπάνω πρόβλημα ;

Ευχαριστώ εκ των προτέρων

Ποιος ο βέλτιστος τρόπος να περάσουμε ένα Datatable σε SQLite?

AlKiS — Tue, 06 Jun 2017 20:13:58 GMT

So, I was using SQL Server but there is a need for me to change to SQLite. I had the following code that worked very fast for 600.000 rows (about a minute).

Dim SQLAdapter As New SqlDataAdapter

Dim dtKinoDraws As New DataTable

Dim SQLcmdBuilder As SqlCommandBuilder

'Emptying the Database

ExecuteSQLQuery(<SQL>

USE <%= DatabaseName %>

TRUNCATE TABLE [<%= DatabaseName %>].[dbo].<%= KinoDrawsTableName %>

</SQL>.Value)

'This is so we have the SCHEMA to use dtKinoDraws.NewRow later to add the 400.000 rows

SQLAdapter = New SqlDataAdapter(<SQL>

USE <%= DatabaseName %>

Select * FROM [<%= DatabaseName %>].[dbo].<%= KinoDrawsTableName %>

</SQL>.Value, SQLConn)

SQLcmdBuilder = New SqlCommandBuilder(SQLAdapter)

SQLAdapter.Fill(dtKinoDraws)

[Adding the 600.000+ rows to the datatable dtKinoDraws as described below]

'Copying everything from the datatable back to SQL Server (takes about a minute)

Using bulkCopy As New SqlBulkCopy(SQLConn)

bulkCopy.DestinationTableName = KinoDrawsTableName

bulkCopy.WriteToServer(item)

End Using

SQLAdapter.Update(dtKinoDraws)

SQLAdapter.Dispose()

SQLConn.Close()

Now I tried to do the same with SQLite but there is no SQLiteBulkCopy, modelling after my previous code and after searching stock overflow for a way, I wrote this extremely inefficient and snail-slow piece of code (takes literally HOURS):

Dim SQLiteAdapter As New SQLiteDataAdapter

Dim dtKinoDraws As New DataTable

Dim SQLitecmdBuilder As SQLiteCommandBuilder

'Emptying the Database

ExecuteSQLQuery(<SQL>

DELETE FROM [<%= KinoDrawsTableName %>];

VACUUM;

</SQL>.Value)

'This is so we have the SCHEMA to use dtKinoDraws.NewRow later to add the 400.000 rows

SQLiteAdapter = New SQLiteDataAdapter(<SQL>

Select * FROM <%= KinoDrawsTableName %>

</SQL>.Value, SQLConnLite)

SQLitecmdBuilder = New SQLiteCommandBuilder(SQLiteAdapter)

SQLiteAdapter.Fill(dtKinoDraws)

[Adding the 600.000+ rows to the datatable dtKinoDraws as described below]

SQLiteAdapter.Update(dtKinoDraws)

SQLiteAdapter.Dispose()

SQLConnLite.Close()

Visual Studio's Output gives me a nearly infinite number of this message at least twice a second: "SQLite notice (27): delayed 25ms for lock/sharing conflict at line 42982"

How can I improve it to be fast like the SQL Server one?

My code is in VB, so I'd prefer VB code, but I can translate C# ones to VB so that's cool too :)

===========================================================================

Now, I didn't think that the way the records are added to the datatable plays a role as THAT only takes seconds, so to keep it succinct, I abstracted that layout of information. If it is indeed needed, here's the whole code:

Private Async Function LoadKinoDrawsFromTextFiles(ByVal FromValue As Integer, ByVal ToValue As Integer, ByVal Files() As String, ByVal dtTable As DataTable) As Task(Of DataTable)

Dim Result As DataTable = dtTable.Clone

Await Task.Run(

Sub()

For i As Integer = FromValue To ToValue

DownloadingDrawsProgress += 1

Dim FileContent() As String = File.ReadAllLines(Files(i))

Dim CurLineKinoDrawNum As Integer = -1

For Each line In FileContent

If line <> "" AndAlso line.Length > 10 Then

Try

Dim LineDecomposition As List(Of String) = line.Split(" "c).ToList

Dim NewDataRow As DataRow = Result.NewRow

CurLineKinoDrawNum = CInt(LineDecomposition(0))

NewDataRow(0) = CurLineKinoDrawNum

Try

NewDataRow(1) = Date.ParseExact(LineDecomposition(1) & " " & LineDecomposition(2), KinoDateFormat, CultureInfo.InvariantCulture)

Catch ex As Exception

Try

NewDataRow(1) = Date.ParseExact(LineDecomposition(1) & " " & LineDecomposition(2), "d/M/yyyy HH:mm", CultureInfo.InvariantCulture)

Catch exc As Exception

NewDataRow(1) = Date.Parse(LineDecomposition(1) & " " & LineDecomposition(2))

End Try

NewDataRow(2) = ArrayBox(False, " ", 0UI, False, LineDecomposition.Skip(3), True, "")

Result.Rows.Add(NewDataRow)

Catch ex As Exception

Try

Dim Tries As Integer = 0

Dim DownloadClient As New WebClient With {.Proxy = Nothing}

Dim OnlineDrawJSONString As String

Dim OnlineDrawJSON As JObject = Nothing

Do Until Tries >= 10

Try

OnlineDrawJSONString = DownloadClient.DownloadString(DrawByNumberLink.Replace("{NumIdentifier}", CurLineKinoDrawNum.ToString))

OnlineDrawJSON = JObject.Parse(OnlineDrawJSONString)

Tries = 10

Catch exb As Exception

Thread.Sleep(2000)

Tries += 1

End Try

Loop

Tries = 0

If OnlineDrawJSON Is Nothing Then Throw New Exception("Unable to download the Draw!")

Dim OnlineDrawNum As Integer = OnlineDrawJSON(DrawIdentifier)(DrawNumberIdentifier).Value(Of Integer)()

Dim dateStr As String = CStr(OnlineDrawJSON(DrawIdentifier)(DrawDateIdentifier))

dateStr = dateStr.Substring(0, dateStr.IndexOf("T")) & " " & dateStr.Substring(dateStr.IndexOf("T") + 1, 5) '5 because it'll always be 5. e.g. "22:00".Length = 5

Dim OnlineDrawDate As Date

Try

OnlineDrawDate = Date.ParseExact(dateStr, "dd-MM-yyyy HH:mm", CultureInfo.InvariantCulture)

Catch exn As Exception

Try

OnlineDrawDate = Date.ParseExact(dateStr, "d-M-yyyy HH:mm", CultureInfo.InvariantCulture)

Catch exc As Exception

OnlineDrawDate = Date.Parse(dateStr)

End Try

Dim OnlineResults As List(Of Integer) = OnlineDrawJSON(DrawIdentifier)(DrawResultsIdentifier).Values(Of Integer)().ToList

Dim drRow As DataRow = Result.NewRow

drRow(0) = OnlineDrawNum

drRow(1) = OnlineDrawDate

drRow(2) = ArrayBox(False, " ", 0UI, False, OnlineResults, True, "")

Result.Rows.Add(drRow)

Catch exc As Exception

CreateCrashFile(exc, True,, MsgBoxStyle.Critical)

Exit Sub

End Try

End If

End Sub)

Return Result

End Function

Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal DelimitationStr As String, ByVal SplitOnNum As UInteger, ByVal IgnoreNullValues As Boolean, ByVal IETVar As IEnumerable(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal DefaultSpace As String = " ", Optional ByVal AlwaysDelimitBeforeNewLine As Boolean = False, Optional ByVal PrefixString As String = "", Optional ByVal SuffixString As String = "", Optional DoNotPrefixIfValueIsNumeric As Boolean = False, Optional DoNotSuffixIfValueIsNumeric As Boolean = False, Optional ByVal AddTwoDoubleQuotesBeforeADoubleQuoteCharacter As Boolean = False, Optional ByVal StrInCaseOfNullValue As String = " ") As String

Dim sbRet As New StringBuilder

If IETVar IsNot Nothing Then

For i = 0 To IETVar.Count - 1

If (IETVar(i) IsNot Nothing AndAlso Not IsDBNull(IETVar(i))) OrElse Not IgnoreNullValues Then ' If the IEVariable is something

Dim StringToBeAppended As String = StrInCaseOfNullValue

Try

StringToBeAppended = IETVar(i).ToString

Catch ex As Exception

End Try

If doNumeriseItems Then sbRet.Append(i + 1).Append(") ") ' Numerise it if user asked it

If PrefixString <> "" AndAlso (Not IsNumeric(StringToBeAppended) OrElse Not DoNotPrefixIfValueIsNumeric) Then ' If there is a Prefix set, and value isnt numeric OR, is numeric but prefixing is allowed

sbRet.Append(PrefixString) ' then append it before the actual value

End If

If Not AddTwoDoubleQuotesBeforeADoubleQuoteCharacter Then ' If we are to proceed normally,

sbRet.Append(StringToBeAppended) ' Print the Value of IETVar(i)

Else

sbRet.Append(StringToBeAppended.Replace("""", """""""")) ' Else, add 2 double-quotes before any double-quote character

End If

If SuffixString <> "" AndAlso (Not IsNumeric(StringToBeAppended) OrElse Not DoNotSuffixIfValueIsNumeric) Then 'If there is a Suffix set, and value isnt numeric OR, is numeric but suffixing is allowed

sbRet.Append(SuffixString) ' then append it after the actual value

End If

If AlwaysDelimitBeforeNewLine AndAlso DelimitationStr <> "" AndAlso i <> IETVar.Count - 1 Then ' If Always Delimit And it isn't the last element of all

sbRet.Append(DelimitationStr) ' then Delimit it

If Not IgnoreDelimitSpace AndAlso (SplitOnNum = 0 OrElse (i + 1) Mod SplitOnNum <> 0) Then sbRet.Append(DefaultSpace) ' Put a space if a space should be put

ElseIf DelimitationStr <> "" AndAlso (SplitOnNum = 0 OrElse (i + 1) Mod SplitOnNum <> 0) AndAlso i <> IETVar.Count - 1 Then ' if it should be delimited And it isn't the last element of the line

sbRet.Append(DelimitationStr) ' then Delimit it

If Not IgnoreDelimitSpace Then sbRet.Append(DefaultSpace) ' Put a space if a space should be put

End If

If SplitOnNum <> 0 AndAlso (i + 1) Mod SplitOnNum = 0 AndAlso i <> IETVar.Count - 1 Then ' If you separate them with NewLines and it is the last element of the line

sbRet.AppendLine() ' then append a NewLine

End If

Return sbRet.ToString

End Function

Public Async Sub FillDatabaseWithDefaultDraws()

Dim SQLiteAdapter As New SQLiteDataAdapter

Dim dtKinoDraws As New DataTable

Dim SQLitecmdBuilder As SQLiteCommandBuilder

'Emptying the Database

ExecuteSQLQuery(<SQL>

DELETE FROM [<%= KinoDrawsTableName %>];

VACUUM;

</SQL>.Value)

'This is so we have the SCHEMA to use dtKinoDraws.NewRow later to add the 400.000 rows

SQLiteAdapter = New SQLiteDataAdapter(<SQL>

Select * FROM <%= KinoDrawsTableName %>

</SQL>.Value, SQLConnLite)

SQLitecmdBuilder = New SQLiteCommandBuilder(SQLiteAdapter)

SQLiteAdapter.Fill(dtKinoDraws)

Dim Files() As String = Directory.GetFiles(strKinoDrawsDirPath)

Dim item = Await LoadKinoDrawsFromTextFiles(0, Files.Length - 1, Files, dtKinoDraws)

dtKinoDraws.Merge(item)

SQLiteAdapter.Update(dtKinoDraws)

SQLiteAdapter.Dispose()

SQLConnLite.Close()

End Sub

And here's what each file in Files(i) looks like:

> 304454 30/11/2011 21:00 7 65 31 62 21 50 34 70 37 40 16 59 10 41 42 76 78 71 74 47

> 304453 30/11/2011 20:55 62 30 68 63 9 45 10 50 1 78 22 6 61 52 38 2 55 26 49 72

> 304452 30/11/2011 20:50 45 65 42 1 78 14 16 4 43 70 28 19 67 23 77 40 49 71 22 21

> ...

> 300971 1/11/2011 10:00 52 48 1 76 13 38 24 18 16 20 53 59 4 40 65 68 42 9 2 51

Subscription based licensing system

Pak — Mon, 26 Sep 2016 17:22:25 GMT

Γειά σε όλους!

Ψάχνουμε για ένα licensing system το οποίο να προσφέρει subscription based licenses για desktop applications. Πρακτικά θέλουμε οι πελάτες μας να αγοράζουν μια άδεια χρήσης online και να χρεώνονται αυτόματα με τον μήνα. Το λογισμικό κατά την έναρξη θα ελέγχει αν ο πελάτης έχει πληρωμένο το subscription του και αναλόγως θα φορτώνει η όχι. Υπάρχει καμιά εμπόρική λύση εκεί έξω που θα μπορούσατε να προτείνετε;

Ευχαριστώ!

Μη σωστή εμφάνιση ελληνικών χαρακτήρων

Ηλίας Κεκάκος — Wed, 23 Nov 2016 07:05:25 GMT

Έχω φτιάξει 1 απλό πρόγραμμα και έχω προσθέσει 1 HelpProvider. Βάζω στο textbox και στην ιδιότητα Helpstring on Helpprovider πρόσθεσα το κείμενο "Γράψε την Σειρά. Αν είναι πάνω από 1 διαχωρίζονται με (,). Κενό πεδίο ισούται με όλες". Αλλά όταν πατάω F1 εμφανίζετε αυτό που θα δείτε στο αρχείο.

Τι πρέπει να κάνω για να εμφανίζονται τα Ελληνικά;

Ευχαριστώ,

Concurrency & Multithreading Πρόβλημα

AlKiS — Sun, 14 Aug 2016 22:28:05 GMT

Καλησπέρα .NetZoners ;)

General Information

Δεν είμαι σίγουρος αν θα βοηθούσε περισσότερο να βάλω τον actual κώδικα ή αν θα ήταν καλύτερα (και γρηγορότερο στην κατανόηση) να περιγράψω απλώς την ιδέα του τι θέλω, οπότε θα διαλέξω το δεύτερο προς το παρόν, αλλά ευχαρίστως να γράψω και ακριβώς τον κώδικα εάν κάποιος νομίζει ότι χρειάζεται.

Θέλω να κάνω υπολογισμούς πάνω σε όλους τους δυνατούς συνδυασμούς ν-άδων για ένα σύνολο πινάκων Integers

Αυτό εκρήγνυται σε κάτι εξαιρετικά CPU-Intensive, χρονοβόρο και Memory hungry πολύ γρήγορα! (Ουσιαστικά αυτά είναι 2 προβλήματα, μόνο για το 1 εκ των οποίων ζητάω λύση σε αυτό το thread - αλλά αν κατά τύχη έχει κάποιος ιδέα και για το άλλο, don't hesitate to disclose the insight).

Algorithmic Information

Έχουμε 2 standards:

1) Υπάρχουν 80 διαφορετικοί αριθμοί από το 1 ως το 80 που μπορεί να περιέχονται μέσα στο κάθε array

2) Το κάθε Array περιέχει πάντα ένα συνδυασμό 20 integers από τους προαναφερθείς

Έχουμε 2 πράγματα που μπορούν να αλλάξουν:

1) Το πόσοι συνδυασμοί nChoosek υπάρχουν (από 80choose2 ως 80choose20)

2) Το πόσα Arrays περιέχει το κάθε σύνολο (από 1 ως μερικά εκατομμύρια)

Για την απλή περίπτωση: 80choose2= 3,160 συνδυασμοί και ένα σύνολο με 1 array των 20 integers

Άρα μιλάμε για 3,160 * 1 * 2 = 6,320 φορές να γίνουν υπολογισμοί

Αν μεγαλώσουμε το "ν" στις ν-άδες κατά 1 μόνο και κρατώντας το σύνολο σε μόνο 1, τότε έχουμε 80choose3= 82,160 συνδυασμούς * 1 * 20 = 246,480 φορές οι υπολογισμοί.

Αν το μεγαλώσουμε κατά 1 ακόμα φτάσαμε 1,581,580 4άδες και 6,326,320 φορές

1 ακόμα και έχουμε 24,040,016 5άδες και 120,200,080 φορές

1 ακόμα και 300,500,200 6άδες και 1,502,501,000 φορές, κτλ, κτλ.

Η πολυπλοκότητα δεν είναι ακριβώς O(n^2) διότι έχουμε ουσιαστικά τον άνω τριγωνικό πίνακα (combinations όχι permutations) και μάλιστα χωρίς τη διαγώνιο, αλλά και πάλι πάει προς εκθετική.

Το να κάνω υπολογισμούς για 12άδες π.χ. είναι επιστημονική φαντασία έτσι, διότι ο αλγόριθμος δεν κλιμακώνεται και θα πάρει μήνες να τελειώσουν οι υπολογισμοί (βέβαια με 32GB RAM και από 6άδες και πάνω χτυπάει out of memory, αλλά αυτό είναι ξεχωριστό πρόβλημα).

Algorithm

Ο αρχικός κώδικας μου ήταν κάπως έτσι:

Dim ΑπόIndexΤάδε As Integer
Dim ΩςIndexΤάδε As Integer
Dim k As Integer = CInt(nudFindNGrams.Value)
Dim Συνδυασμοί As New List(Of List(Of Integer))
Συνδυασμοί = nChooseK(Από1Ως80, k)
				...
Await Task.Run(
	Sub()
		For i = 0 To Συνδυασμοί.Count - 1
			For j = ΑπόIndexΤάδε To ΩςIndexΤάδε
				For f As Integer = 0 To k - 1
					'Κάνε κάτι
				Next
			Next
		Next
		End Sub)

Δυστυχώς αυτό το μόνο που κάνει είναι αφήνει στο κύριο thread το User Interface και όλοι οι υπολογισμοί να γίνονται σε ΕΝΑ ξεχωριστό thread, σειριακά.

Προσπαθώντας να το κάνω να γίνονται όλα παράλληλα και σε τόσα threads όσα είναι και τα threads της CPU το μετέτρεψα έτσι (αλλά δεν κάνει αυτό που νόμιζα):

Public Class clsNGram
    Public nGramCombination As List(Of Integer)
    Public Occurrences As Integer
End Class

Sub's Code

Dim ΑπόIndexΤάδε As Integer
Dim ΩςIndexΤάδε As Integer
Dim k As Integer = CInt(nudFindNGrams.Value)
Dim Συνδυασμοί As New List(Of List(Of Integer))
Συνδυασμοί = nChooseK(Από1Ως80, k)
				...
Await Task.Run(
Async Function()
	Dim ComputeQuery As New List(Of Task(Of List(Of clsNGram)))
	If Συνδυασμοί.Count > CoresCount Then
		Dim intCombinationsPerIteration As Integer = CInt(Math.Floor(Συνδυασμοί.Count / CoresCount))
		For i As Integer = 1 To CoresCount
			If i = 1 Then
				ComputeQuery.Add(Compute(0, intCombinationsPerIteration, k, Συνδυασμοί, ΑπόΤάδεIndexΣυνόλου, ΩςΤάδεIndexΣυνόλου))
			ElseIf i < CoresCount Then
				ComputeQuery.Add(Compute((intCombinationsPerIteration * i) - intCombinationsPerIteration + 1, intCombinationsPerIteration * i, k, Συνδυασμοί, ΑπόΤάδεIndexΣυνόλου, ΩςΤάδεIndexΣυνόλου))
			Else
				ComputeQuery.Add(Compute((intCombinationsPerIteration * i) - intCombinationsPerIteration + 1, Συνδυασμοί.Count - 1, k, Συνδυασμοί, ΑπόΤάδεIndexΣυνόλου, ΩςΤάδεIndexΣυνόλου))
			End If
		Next
	Else
		ComputeQuery.Add(Compute(0, Συνδυασμοί.Count - 1, k, Συνδυασμοί, ΑπόΤάδεIndexΣυνόλου, ΩςΤάδεIndexΣυνόλου))
	End If
	Dim CountSwarmsTasks As Task(Of List(Of clsNGram))() = ComputeQuery.ToArray
	Dim CountSwarmsLstClsNGram() As List(Of clsNGram) = Await Task.WhenAll(CountSwarmsTasks)
End Function)

Function called by the button's Sub

Private Async Function Compute(ByVal ΑπόΤάδεIndexΣυνδυασμού As Integer, ByVal ΩςΤάδεIndexΣυνδυασμού As Integer, ByVal k As Integer, ByVal Συνδυασμοί As List(Of List(Of Integer)), ΑπόΤάδεIndexΣυνόλου As Integer, ΩςΤάδεIndexΣυνόλου As Integer) As Task(Of List(Of clsNGram))
    Dim CombinationsOccurences As New List(Of clsNGram)
    For i = ΑπόΤάδεIndexΣυνδυασμού To ΩςΤάδεIndexΣυνδυασμού
        CombinationsOccurences.Add(New clsNGram With {.nGramCombination = Συνδυασμοί(i), .Occurrences = 0})
		For j = ΑπόΤάδεIndexΣυνόλου To ΩςΤάδεIndexΣυνόλου
			For f As Integer = 0 To k - 1
				'Κάνε κάτι
			Next
		Next
    Next
    Return CombinationsOccurences
End Function

Αλληλεπίδραση με ένα web site

papsoft — Mon, 01 Aug 2016 18:56:09 GMT

Θα ηθελα την βοηθεια σας με σχετικα αρθρα για μελετη, για μια ιδεα που θελω να υλοποιησω.

Είμαι σχετικά αρχάριος στον κόσμο της C#, άλλα προσπαθώ.

Θελω να χειριστω μια ιστοσελιδα μεσα απο μια φορμα. Συγκεκριμενα Φτιαχνω μια φορμα στην οποια ο χρηστης θα εισαγει 3 strings σε αντιστοιχα πεδια. Αυτες οι τιμες θελω να τις βαζω σε συγκεκριμενο σιτε να παταω το search στο site και να παιρνω πισω δεδομενα.

Εκτύπωση Crystal Reports (ή μηπως όχι)

evagelos — Tue, 21 Jun 2016 17:04:14 GMT

Γεια σας παιδιά.

Έχω μια εφαρμογή τύπου winform.

Σε αυτή θέλω να εκτυπώσω ετικέτες για εκτυπωτή τύπου barcode.

Ξεκίνησα να φτιάξω ένα crystal και έχω φτάσει στο σημείο να εκτυπώνω μεν αλλά χωρίς να μπορώ να περάσω παραμέτρους. Μου γράζει ένα σφάλμα "Unable to connect: incorrect log on parameters.
Details: [Database Vendor Code: 18456]"

ο κώδικας για το crystal είναι αυτός:

ReportDocument crystalReport = new ReportDocument();
crystalReport.Load("LotLabel.rpt");
crystalReport.PrintOptions.PrinterName = "PDFCreator";
crystalReport.PrintToPrinter(1, true, 0, 0);

την παράμετρο προσπάθησα να την περάσω έτσι:

crystalReport.SetParameterValue("MTRLOT1", PrintDt.Rows["lotcode"].ToString());

Εκτός από crystal μπορώ και από τα report του VS να φτιάξω την εκτύπωση μου; Μέρχι τώρα οι εκτυπώσεις που έχω κάνει είναι απλά να προωθώ pdfs στον εκτυπωτή. δεν είχα χρειαστεί κάτι άλλο

Σας ευχαριστώ για την κατανόηση

Προσθήκη κυκλου σε συγκεκριμένο σημείο μιας φωτογραφίας

evagelos — Wed, 04 May 2016 00:58:40 GMT

Γεια σας παιδιά.

Μια ερώτηση.

Έστω ότι έχω ένα κουπόνι του ΟΠΑΠ. πχ joker, lotto κλπ

Πως μπορώ από την στιγμή που ξέρω να νούμερα να "ζωγραφίσω" στο κουπόνι και να κάνω κόκκινα τα νούμερα που κέρδισαν;

ένα παράδειγμα του τι εννοώ, είναι αυτό που τα νούμερα που κερδίζουν, μπαίνει ένα κίτρινο circle rectangle:

http://www.opap.gr/el/web/guest/kino-live-draw

Σας ευχαριστώ

Windows Form: Enable = true; VS Graying

γιωργος μπακογιαννης — Wed, 18 May 2016 20:34:09 GMT

Όταν σε μία windows φόρμα θες να απενεργοποιήσεις όλες τις λειτουργίες της «λες»: Enable = true;

Αυτό έχει δυο θέματα.

Πρώτόν όταν η φόρμα έχει αρκετά controls αργεί και δεύτερον -και σημαντικότερο- οι χρωματικές αποδόσεις της εφαρμογής είναι «χάλια» με το graying.

Υπάρχει τρόπος να έχουμε τις ιδιότητες της «εντολής» Enable = true; χωρίς το graying.

deployment of unwanted localization dlls

Johnnyxp64 — Thu, 14 Jan 2016 05:47:05 GMT

καλησπερα

μετα απο upgrade solution απο vs 2013 .net 4.5.2 into vs 2015 up1 .net 4.6.1 εχω στο release/debug directory μου μετα το build φακελους για διαφορες γλωσσες και μεσα το αρχειο Microsoft.SqlServer.Types.resources.dll

δεν το εκανε πριν, δεν μπορω να βρω σχετικω reference στο project μου που το αναγκαζει να κανει αυτο. ειναι ενοχλητικο, καθε φορα που κανω build πρεπει να σβηνω 10 folders .....

κατι ιδιο εκανε και η devexpress στα control της, αλλα βρηκα που ειναι τα dlls και εβγαλα απο εκει τους φακελοςυ με τα localized resource dlls, δεν τα θελω, και κανενα προβλημα δεν ξαναβγηκαν, αλλα αυτο που ειναι της sql, δεν μπορω να βρω πουθενα στο δισκο κατι σχετικο.

και φυσικα ο googλορας δεν εχει κατι σχετικο με το προβλημα αυτο στις πρωτες σελιδες.....

ελπιζω καποιος να το εχει συναντησει και να εχει καποια ιδέα πως να το σταματησω.

ευχαριστω

Deserialize XML και λαθος στο εγγραφο

evagelos — Wed, 22 Jul 2015 18:55:09 GMT

Γεια σας παιδία,

εχω ένα XML αρχείο και όταν προσπαθώ να το κανω Deserialize μου πετάει μηνυμα λαθους για το αρχείο.

Από ότι ειδα το XML περιέχει χαρακτήρες τύπου "΄΄", το συμβολο "&" κλπ κλπ.

μπορώ να τα κανω exclude αυτά;

προσπαθώ αφού το κανω string, κανω replace τα συμβολα αυτά και παλι χτυπάει.

καμια ιδέα;

Ευχαριστώ

[code]

<?xml version="1.0" encoding="UTF-8"?>
<entries>
<entry>
  <name>26.PM-G001/F002</name>
  <photo>http://globitel.gr/etytxml/xml/82.jpg</photo>
  <category>Βάση οροφής</category>
  <manufactory>SKYVIEW</manufactory>
  <avail>1</avail>
  <price>11</price>
  <description>Βάση οροφής για βιντεοπροβολέα, Μεταβλητή απόσταση από οροφή 32,2 εκ - 42,2 εκ,   Κλίση από -15ο έως +15ο , Περιστροφή 360ο, Μέγιστο Βάρος 15 κιλά, Διαχείρηση καλωδίων, Χρώμα μαύρο</description>
  <pn>PM-G001</pn>
  <ean>6910088800178</ean>
  <Weight>1.7</Weight>
  <Size>35.00x20.00x8.00</Size>
</entry>
<entry>
<name>ODYS XOUND Cube (white) Sound Speaker & Charging Function</name>
  <photo>http://etyt.gr/xml/admin/views/tableview/images/items_photo_407.jpg</photo>
  <category>Αξεσουάρ</category>
  <manufactory>ODYS</manufactory>
  <avail>1</avail>
  <price>15</price>
  <description>3in1 Mini BT Soundstation, BT Speaker | Powerbank for charging all USB devices (2000mAh) | Built-in hands free function with integrated microphone for mobile phones, Max. 5W output power, 3,5mm AUX-input,Built-in rechargeable lithium battery</description>
  <pn>X780011</pn>
  <ean>4260087122101</ean>
</entry>

<entry>
  <name>18.LUMEMBII240V</name>
  <photo>http://globitel.gr/etytxml/xml/91.jpg</photo>
  <category>Οθόνη Προβολής</category>
  <manufactory>LUMENE</manufactory>
  <avail>0</avail>
  <price>259</price>
  <description>Motorized 234x176 Diagonal 115΄΄ Screen MaterialHigh quality Lumene screen material WMat-ST(1 0 gain, mat, black borders, black back…)</description>
  <pn>EMBASSY II 240V</pn>
  <ean>3760108808614</ean>
</entry>

</entries>

[/code]

Απο VB6 σε VB.net

gmlogic — Sat, 28 Jan 2006 22:19:30 GMT

Ξεκίνησα να μεταφράζω την εφαρμογή μου απο VB6 σε .net 2003 και περιμένω τώρα να μου έλθει και η .net 2005

Λοιπόν ίσως να σας ζαλίσω λίγο αλλά πιστεύω ότι και άλλοι συνάδελφοι θα οφελιθούν από τις απαντήσεις δεν ξέρω μάλιστα

αν χρειάζεται να ανοίξει μια ειδική ενότητα για αυτό το θέμα δηλ από VB6 σε .NET

Η πρώτη γεύση ήταν όταν άνοιξα απο .NET το VB6 project(δεν φανταζόσατε τι έβγαλε σχεδόν τίποτα σωστό :) !!!!! ).

Σκέφτηκα λοιπόν να ανοίξω και το VB6 project κάτω από το .NET project και να κάνω πχ Select All (copy - paste) κλπ

και να ξανακτίσω σιγά-σιγά την εφαρμογή.

Μου φέρνει λοιπον μερικά VB6 Control υποθέτω μέσω της AxInterop.ComctlLib

Φυσικά δεν είναι τελικά αυτό το ζητούμενο αλλά να δουλέψουμε με τα .ΝΕΤ Controls

Καί ξεκινάμε !!!!

1.Λέω να φτιάξω ένα ωραίο ToolBar όπως σε VB6 και να πάρω και τα Button άκια μου να τα βάλω στό ToolBar ήξερα ότι

γινόταν μέ ένα paste μέσα στο ToolBar. Τώρα αμ δε. :)

2.array controls κλπ

και άλλα που θά βγούν στην πορεία.

Σας ευχαριστώ πολύ εκ των προτέρων

Γιώργος.M

List.Insert

evagelos — Mon, 13 Apr 2015 23:20:14 GMT

Γεια σας παιδια.

Εχω μια custom Class List και ένα "στοιχείο" είναι μια Class list και αυτό:

    public class channels
    {
        public string Name { get; set; }
        public string ImageUrl { get; set; }
        public List<epg> Epg { get; set; }
    }

    public class epg
    {
        public DateTime Day { get; set; }
        public string Time { get; set; }
        public string Description { get; set; }
    }

Πως μπορώ να προσθέσω σε ένα συγκεκριμένο id της channels ένα epg;

κάνω:

var found = mychannels.FindIndex(x => x.Name == chName);

και μου γυρίζει το id.

μετά τι πρέπει να γράψω για να μπει πχ στην 3η εγγραφή ή να φτιάξει καινούργιο channel από την στιγμή που δεν το βρήκε;

που είναι το λάθος;

Αυτό μου βγάζει μήνυμα λάθους:

if (found > -1)
{
mychannels.Insert(found,
new epg() { Description = thema, Time = ora, Day = DateTime.Now.AddDays(myDay) }
);
}

Πρόσβαση σε συνεχόμενα controls

mike2007 — Thu, 09 Apr 2015 06:24:12 GMT

Καλησπέρα,

έχουμε μια φόρμα στην οποία υπάρχουν 20 textboxes με όνομα myTextBox1,myTextBox2,myTextBox3 κλπ.

πως μπορούμε σε ένα loop να διαβάσουμε το text τους?

Spire.pdf (v4.0.30319) error (Index was outside the bounds of the array) στο casting σε PdfFormWidget

pavramedes — Sat, 28 Mar 2015 04:24:30 GMT

Καλησπέρα,

χρησιμοποιώ το συγκεκριμένο version της free έκδοσης του dll και δυστηχώς παίρνω το παραπάνω "διευκρινιστικό" exception

όταν προσπαθήσω να διαβάσω ένα PDF form (που έχει φτιαχτεί με Acrobat 9 Pro) για να επεξεργαστώ τα data του. Το θέμα είναι

ότι δεν συμβαίνει με όλες τις PDF forms οπότε εκεί εστιάζω και το πρόβλημα... Μήπως έχετε συναντήσει αντίστοιχο πρόβλημα ;

Ο σχετικός κώδικας είναι ο παρακάτω :

PdfDocument document = new PdfDocument();

document.LoadFromFile(pdffile);

PdfFormWidget formWidget = document.Form as PdfFormWidget; ## Στο casting παίρνω το exception

for (int i = 0; i < formWidget.FieldsWidget.List.Count; i++)

{

PdfField pdf_field = formWidget.FieldsWidget.List as PdfField;

Μπλα μπλα μπλα ...

c# ποσες φορές υπαρχει ενα νουμερο σε μια λιστα

evagelos — Mon, 16 Mar 2015 06:58:23 GMT

Γεια σας παιδια,

Εχω μια List<> που περιέχει νούμερα που είναι σε μια List<int>

τα νουμερα είναι τυχαίοι αριθμοί.

πχ 1,2,3 στην πρώτη

1,4,9 η δευτερη κλπ

Πως μπορώ να βρω πόσες φορές έχει επαναληφθεί το κάθε νουμερο από όλη την κύρια λίστα μου;

ευχαριστώ

Προβλημα που "χαλάει" τα windows

evagelos — Tue, 10 Feb 2015 18:10:03 GMT

Γεια σας παιδια,

μου δώθηκε ένα task το οποίο ήταν να κανω συντηρηση και καποιες αλλαγες σε ένα exe πρόγραμμα.

Το πρόγραμμα αυτό συνδέεται σε 1 βαση διαβαζει και αποθηκευει αρχεία xml.

Κάθε τρεις και λιγο τα windows καταντουν έτσι όπως βλέπεται στην εικονα.

Αν κανουμε logout-login όλα "στρώνουν"

Καμια ιδέα;

Αναγνωση xml

evagelos — Sun, 14 Dec 2014 04:48:37 GMT

Γεια σας παιδια,

επειδή ΔΕΝ το εχω (και) με την αναγνωση XML αρχείου.

Θέλω να διαβασω το RoomType απο το αρχείο καθώς και τις υπολοιπες πληροφορίες.

Τι πρέπει να γραψω;

Μεχρι στιγμής είμαι εδω:

XmlDocument doc = new XmlDocument();
doc.Load("responce.xml");
XmlNodeList infos = doc.GetElementsByTagName("HotelReservationInfo"); //η loop μας!!!
foreach (XmlElement infElem in infos)
{

}

<?xml version="1.0" encoding="UTF-8"?>
<AgentReservationListRS Target="Production" Version="1.000" TimeStamp="2014-12-13T19:58:16+02:00" EchoToken="chris" xmlns="http://www.opentravel.org/OTA/2003/05">
<BuyerReservations>
    <BuyerInfo BusinessID="AHDaaaweb" Name="AAA Web Travel LTD. - Irini Velonaki" ContractType="B2B_TYPE" Address="46, Amalias Ave." City="Athens" PostCode="105 58" Country="GR" Phone="210-9483580" Category="Other" />
    <HotelReservations>
      <HotelReservationInfo>
        <HotelReservation RoomStayReservation="true">
          <RoomStays>
            <RoomStay IndexNumber="1">
              <RoomTypes>
                <RoomType RoomTypeCode="00002" NumberOfUnits="1">
                  <RoomDescription>
                    <Text>Double Room</Text>
                    <Text />
                    <Text />
                  </RoomDescription>
                  <Amenities>
                    <Amenity RoomAmenity="3" />
                    <Amenity RoomAmenity="2" />
                  </Amenities>
                </RoomType>
              </RoomTypes>
              <RatePlans>
                <RatePlan RatePlanType="13.RPT" RatePlanCode="00007" RatePlanName="Greek">
                  <RatePlanDescription>
                    <Text />
                    <Text />
                  </RatePlanDescription>
                </RatePlan>
              </RatePlans>
              <RoomRates>
                <RoomRate RatePlanCode="00007" RoomTypeCode="00002" NumberOfUnits="1">
                  <Rates>
                    <Rate EffectiveDate="2014-09-27+02:00" ExpireDate="2014-09-28+02:00">
                      <Base AmountBeforeTax="61.22" />
                      <AdditionalGuestAmounts>
                        <AdditionalGuestAmount AgeQualifyingCode="10">
                          <Amount AmountBeforeTax="0.0" />
                        </AdditionalGuestAmount>
                      </AdditionalGuestAmounts>
                      <Fees>
                        <Fee Type="Inclusive" Code="14.MPT" Amount="0.0" />
                      </Fees>
                      <Total AmountBeforeTax="61.22" AmountAfterTax="61.22" CurrencyCode="EUR" />
                    </Rate>
                  </Rates>
                  <Total AmountAfterTax="61.22" />
                </RoomRate>
              </RoomRates>
              <GuestCounts>
                <GuestCount Count="2" AgeQualifyingCode="10" />
              </GuestCounts>
              <TimeSpan Start="2014-09-27" End="2014-09-28+02:00" />
              <DepositPayments>
                <GuaranteePayment PaymentCode="8">
                  <AcceptedPayments>
                    <AcceptedPayment>
                      <PaymentCard CardType="1" CardCode="VI" />
                    </AcceptedPayment>
                    <AcceptedPayment>
                      <PaymentCard CardType="1" CardCode="MC" />
                    </AcceptedPayment>
                  </AcceptedPayments>
                  <AmountPercent CurrencyCode="EUR" Amount="61.22" />
                  <Deadline AbsoluteDeadline="2014-09-27T12:00:00" />
                  <Description>
                    <Text>The total amount of your stay must be charged at the time pf the booking</Text>
                  </Description>
                </GuaranteePayment>
              </DepositPayments>
              <CancelPenalties>
                <CancelPenalty>
                  <Deadline AbsoluteDeadline="2014-09-17T12:00:00.000+03:00" />
                  <AmountPercent TaxInclusive="true" CurrencyCode="EUR" Amount="0.0" Percent="0.0" />
                  <PenaltyDescription>
                    <Text>Please see below cancellation policy</Text>
                  </PenaltyDescription>
                </CancelPenalty>
                <CancelPenalty>
                  <Deadline AbsoluteDeadline="2014-09-27T12:00:00.000+03:00" />
                  <AmountPercent TaxInclusive="true" CurrencyCode="EUR" Amount="30.61" Percent="50.0" />
                  <PenaltyDescription>
                    <Text>Please see below cancellation policy</Text>
                  </PenaltyDescription>
                </CancelPenalty>
                <CancelPenalty NonRefundable="true">
                  <AmountPercent TaxInclusive="true" CurrencyCode="EUR" Amount="61.22" Percent="100.0" />
                </CancelPenalty>
              </CancelPenalties>
              <Total AmountAfterTax="61.22" CurrencyCode="EUR" />
              <BasicPropertyInfo HotelCode="AHDAAA00029" HotelName="TITANIA HOTEL">
                <Address>
                  <AddressLine>Panepistimiou 52 </AddressLine>
                  <CityName>Athens Center</CityName>
                  <PostalCode>106 78</PostalCode>
                  <County>Athens</County>
                  <CountryName Code="GR">Greece</CountryName>
                </Address>
                <ContactNumbers>
                  <ContactNumber PhoneNumber="0030-2103326000 " PhoneTechType="1" />
                  <ContactNumber PhoneNumber="0030-2103300700 " PhoneTechType="3" />
                </ContactNumbers>
                <Award Provider="PMS" Rating="4" />
              </BasicPropertyInfo>
              <TPA_Extensions>
                <RoomGuests>
                  <RoomGuest title="" firstName="N/A" lastName="N/A" ageQualifyingCode="10" roomNumber="1" />
                  <RoomGuest title="" firstName="N/A" lastName="N/A" ageQualifyingCode="10" roomNumber="1" />
                </RoomGuests>
                <RoomStayStatus>ACTIVE</RoomStayStatus>
                <SellerCommission>1.22</SellerCommission>
                <BuyerCommission>0.0</BuyerCommission>
              </TPA_Extensions>
              <ResGuestRPHs>
                <ResGuestRPH RPH="1" />
              </ResGuestRPHs>
            </RoomStay>
          </RoomStays>
          <ResGuests>
            <ResGuest AgeQualifyingCode="10" ResGuestRPH="1">
              <Profiles>
                <ProfileInfo>
                  <Profile ProfileType="1">
                    <Customer>
                      <PersonName>
                        <GivenName>George</GivenName>
                        <Surname>Bountounis</Surname>
                      </PersonName>
                      <Email>gbountounis@aheadrm.com</Email>
                    </Customer>
                    <Affiliations>
                      <TravelArranger Code="AHDaaaweb" />
                    </Affiliations>
                  </Profile>
                </ProfileInfo>
              </Profiles>
            </ResGuest>
          </ResGuests>
          <ResGlobalInfo>
            <TimeSpan Start="2014-09-27+03:00" End="2014-09-28+03:00" />
            <Total AmountAfterTax="61.22" CurrencyCode="EUR" />
            <HotelReservationIDs>
              <HotelReservationID ResID_Type="14" ResID_Value="CONFAHD20140728172510240" ResID_Source="ENTRADA" ResID_SourceContext="Ahead Travel Test" ForGuest="true" ResID_Date="2014-07-28T17:25:10.240+03:00" />
            </HotelReservationIDs>
            <Profiles>
              <ProfileInfo>
                <Profile>
                  <CompanyInfo>
                    <CompanyName>Santorini Travel</CompanyName>
                    <AddressInfo>
                      <AddressLine>ATHENS</AddressLine>
                      <CountryName Code="GR">Greece</CountryName>
                    </AddressInfo>
                    <TelephoneInfo PhoneNumber="2109933456, 697245678" />
                    <Email>info@titania.gr</Email>
                  </CompanyInfo>
                </Profile>
              </ProfileInfo>
            </Profiles>
          </ResGlobalInfo>
          <TPA_Extensions>
            <ReservationBuyingPrice totalCost="60.0" fromCurrency="EUR" toCurrency="EUR" exchangeRate="1" />
            <ContractBuyerCreditLimit>483.51</ContractBuyerCreditLimit>
            <ReservationStatus>ACTIVE</ReservationStatus>
            <BuyerID>AHDaaaweb</BuyerID>
          </TPA_Extensions>
        </HotelReservation>
        <AdditionalInfo BuyerCommission="0.0" SellerCommission="1.22">
          <SupplierInfo BusinessID="AHDAAA" Name="Ahead Travel Test" ContractType="B2B_TYPE" Address="46 Amalias Ave" City="Athens" PostCode="10558" Country="GR" Phone="2109483580" />
        </AdditionalInfo>
      </HotelReservationInfo>

Ευρεση directory όταν το τρέχουμε σαν scheduler

evagelos — Wed, 21 Jan 2015 22:20:49 GMT

Γεια σας παιδια,

Εχω ένα πρόγραμμα που θέλω να γράφει στο directory του προγράμματος ένα αρχειο txt.

Όταν το τρέχω σαν exe μονος μου, εχω:

string _myPath = Environment.CurrentDirectory;

και όλα παιζουν μια χαρά.

Το βαζω στο scheduler των windows και του λέω να τρέχει ανεξάρτητα αν είναι ο χρηστης μεσα η όχι, και το πρόγραμμα μου προσπαθει να γραψει στο system32

τι κανω λαθος;

Ευχαριστώ

ms live api

evagelos — Sun, 30 Nov 2014 00:57:19 GMT

Γεια σας παιδιά,

ειχα φτιάξει μια εφαρμογή που έτρεχε στο scheduler των windows, μαζευε δεδομένα απο ένα sqlserver (erp) και τα ανεβαζε στο google calendar. Ετσι ο καθε χρηστης είχε στο calendar του google τα ραντεβου του, τις εργασιες κλπ. ολα έπαιζαν μια χαρά ως ότου η google αλλαξε το api της σε v3 και τώρα πρέπει να πατησει ο χρηστης login για να μπορει να εισελθει στο λογαριασμό του.

Επειδή δεν παιζει να γινετε αυτό, είπα μην το αλλαξω σε ms live και το calendar το γυρίσουμε σε microsoft based.

Το θέμα μου είναι ότι θεωρητικά γινετε αυτό, βρήκα καποια παραδειγματα, αλλα σε εμενα δεν παιζουν.

πχ:

        public async void Auth()
        {
            string clientId = "My_client_id";
            LiveAuthClient auth = new LiveAuthClient(clientId);
            var result = await auth.LoginAsync(new[] {
                    "wl.signin",
                    "wl.basic",
                    "wl.calendars",
                    "wl.calendars_update",
                    "wl.contacts_calendars",
                    "wl.events_create" });

            if (result.Status == LiveConnectSessionStatus.Connected)
            {
                LiveConnectClient client = new LiveConnectClient(result.Session);
            }
        }

δεν ξερει το LoginAsync.

Αν το κανω InitializeAsync, απλά δεν κανει τίποτα και το αποτέλεσμα ειναι null

Βασικά θέλω να περνάω ότι έχει σχέση με username, password, clientId για να μπορώ να κανω τις αλλαγές, χωρίς αλληλεπίδραση με χειριστή.

Ευχαριστώ